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-REM @ 


IDENTIFICATION 


PRODUCT CODE: AC=F956A-MC 

PRODULI NAME:  CZRJKAQ RPO? FORMAT/SCANNER 
PRODUCT DATE: JANUARY 1, 1983 

MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT 
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


NOTICE 


TO CHANGE WITHOUT 


AND SHOULD 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPUNSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 


AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS 
DEC DECUS DECTAPE 


MASSBUS 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE RPO7 4 ang gh rk ta pULF LL THE REQUIREMENTS FOR A 16 BIT 
MANUrACTURING AND FIELD FORMAT PROCESS. THE FORMAT PROCESS FOR RPO7 
TT aac cecmaa di FROM PREVIOUS RPXX DEVICE TECHNOLOGY IN SEVERAL 


A) THE FORMAT PROCESS USES MEDIA ‘DEFECT SKIPS'* IN ADDITION TO BAD 
SECTOR FLAGGING, 


B) THE FORMATTER PROGRAM, A STAND ALONE PROGRAM, CAN BE USED IN 
Ha Oe th BUT NOT INDISCRIMINATELY. THIS PROGRAM IS INTENDED 
FOR USE IN 2 DIFFERENT ENVIRONMENTS: 


1, AT THE VENDOR'S MANUFACTURING SITE 


2. AT THE CUSTOMERS SITE, USED BY TRAINED DEC FIELD 
SERVICE PERSONNEL 


THE FORMAT PROGRAM ACCEPTS TRACK DESCRIPTOR DATA WHICH MAPS THE 


GIV HIS 
MAP IS THEN USED TO FORMAT OR VERIFY THE FORMAT FOR A SPECIFIED TRACK. 


THE FORMAT PROGRAM ALSO CONTAINS A PACK SCAN MODE OF OPERATION. WHEN 
RUN_IN THIS MODE, DEFECTS WHICH CAUSE DATA OR HEADER ERRORS WILL BE 
MAPPED AND ADDED TO THE EXISTING TRACK DESCRIPTOR RECORDS AS NECESSARY. 


THE RPO? FORMATTER ey HAS SEVERAL USES, THE MAIN FUNCTION 

HOWEVER, IS TO CREATE THE FORMAT USED FOR THE PDP11 (16 BIT) PRODUCTS. 
THIS FUNCTION, INTENDED T USE AT THE MANUFACTURING SITE BY THE 
MANUFACTURER, AND IN THE FIELD BY THE TRAINED FIELD ENGINEER, CONTAINS 
THE FOLLOWING PROCESSES: 


A) GIVEN THAT THE TRACK DESCRIPTORS ARE ALREADY WRITTEN ON THE 
DRIVE, THE PROGRAM WILL MAP THE STARTING LOCATIONS OF ALL 
NEEDED DEFECT SKIPS. 


6) DEPENDENT UPON USER INPUT, THE PROGRAM WILL THEN FORMAT OR 
FORMAT VERIFY EITHER A SELECTED TRACK, PART OF A DRIVE'S 
SURFACE OR AN ENTIRE DRIVE. 


C) ASSUMING A HIGH DEGREE OF SOPHISTICATION ON THE PART OF THE 
USER, THE PROGRAM WILL ALLOW MANUAL EXTRY OF IPrOR "PER USER" 


U E KEY D THE NEED TO 
Fa THE SPECIFIED TRACK BASED ON THE NEW TRACK DESCRIPTOR 


NPU 
If RUNNING THE FIELD VERSION OF Ba PROGRAM, WARNING MESSAGES 
WILL BE GENERATED TO INSURE THAT THE USER HAS A CHANCE TO 
CHANGE FUNCTIONS AND AVOID A POSSIBLE CATASTROPHY, I.E, 
DESTRUCTION OF A SYSTEM DATA FILE. 


D) WHEN PERSISTENT DATA OR HEADER ERRORS ARE DETECTED, THE FORIATTER 


SEQ 0003 
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CAN BE RUN THE PACK=SCAN os OF OPERATION. THIS OPERATION, 
WHICH RUNS TO COMPLETION PRIOR TO EXECUTING ANY FORMAT FUNCTION, 
WRITES VARIOUS DATA PATTERNS. ON THE USER SELECTED AREA IN AN 
ATTEMPT TO ISOLATE ANY UNMAPPED MEDIA DEFECTS. WHEN DEFECTS ARE 
DETECTED, THE ASSOCIATED CK DESCRIPTOR RECORD IS UPDATED (IN 
MEMORY O TO INCLUDE EW DEFECT(S). UPON COMPLETION OF 
THIS MODE OF OPERATION, THE FORMATTER PROGRAM MAY BE RUN TO MASK 
THE NEW DEFECT LIST ON THE AFFECTED MEDIA. 

THIS PROGRAM HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 

SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 

O THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 

USED WITH XXDP+, ACT, APT, AND SLIDE. FOR A COMPLETE DESCRIPTION ? 

THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. THERE IS A 

BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS ; 
THIS PROGRAM, IN ORDER TO EXECUTE, WILL REQUIRE THE FOLLOWING HARDWARE: 
1, AN XXDP+ LOAD MEDIUM, : 
2. A CONSOLE TERMINAL 
3. A MINIMUM OF 28K OF MAIN MEMORY 
4. A PDP11 PROCESSOR EXCEPT AN LSI 11, AND APPROPRIATE MASSBUS 
CONTROLLER WHICH CONFORMS To SEC Sfp 159, AND HAS A 
TRANSFER RATE EQUIVALENT TO OR GREATER THAN 2.2 Savtes/SEC. 
5. AT LEAST ONE RPO7, 
6: OPTIONALLY, A LINE PRINTER MAY ALSO BE USED BY THE PROGRAM. 
1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USER'S MANUAL = CHOUS 


‘24 DIAGNOSTIC HIERARCY PREREQUISITES 


ALL CPU, MEMORY AND TERMINAL DIAGNOSTICS MUST RUN SUCCESSFULLY TO 
COMPLETION. 


RPO7 FRONT END DIAGNOSTIC MUST RUN SUCCESSFULLY TO COMPLETION. 


1.5 ASSUMPTIONS 

PROPER USE OF THIS PROGRAM REQUIR oF S_THAT THE USER BE FAMILIAR WITH 
THE RULES WHICH APPLY TO DEFECT SKIPPING, AS APPLIED TO THE RPO7. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DES 
FOR DETAILED INFORMATION, REFER T 


RIPTION OF THE RUNTIME seey 


CRIPT ICES. 
O THE XXDP* USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


SEQ 0004 
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THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 
COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+* MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE_ACTIVE AT START TIME 
DROP DEACTIVATE A_UNIT 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 
DISPLAY TYPE A LIST OF ALL Pie INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 

YOU MAY, FOR EXAMPLE, TYPE ‘'STA'’ INSTEAD OF ‘‘START’’. 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY eye 14 det 


SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9.10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN, 
/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED_FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 
/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (D = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS Seaerrd WILL BE: 1) a 1 — 5 WILL BE 
L UNITS WILL 00 ES 


EXECUTED, 2) ALL TESTED. 1000 TIMES AND. 3) ThE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES. ONLY. 

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE “'/TES:1=5"° INSTEAD OF "/TESTS: 1-5". 


‘ 
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BELOW 1S A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS __FLAGS EOP UNITS 


FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

-_ FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
COMMANDS AFFECT THE STATE OF THE FLAGS; sim REMAIN SET OR 

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

0 LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IxR® INHIBIT EXTENDED ERROR: ;REPORTS (THOSE 
CALLED BY PRINTX M 

PRI DIRECT MESSAGES. TO LINE PRINTER 

PNT PRINT TEST NUMBER aS TEST EXECUTES 

BOE ELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 


H 1 
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SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MA 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE P ROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A BELL’ ON ERROR, YOU MAY USE THE FOLLOWING STRING 
/FLAGS:LOE: 1ER:BOE 

2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INF ORMAT ION BY TYPING CHANGE HW (L) ? °° 
YOU MUST ANSWER ‘'Y’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "RELOADED" USING THE SETUP UTILITY (SEE 


CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL), YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


0) 5? 
DRIVE # (0) O ? 


THE 1ST QUESTION ‘'RPCS1 ADRS** REQUIRES THAT THE USER INPUT THE 
RPCS1 ADDRESS OF THE CONTROLLER WHICH IS CONNECTED TO THE DRIVE 
UNDER TEST. DEFAULT IS 176700 (OCTAL). 


THE 2ND QUESTION ‘’VECTOR ADRS*’ REQUIRES THE USER TO INPUT THE 
Hyer alee ADDRESS OF THE RHXX CONTROLLER. DEFAULT IS 


THE 3RD QUESTION “BR LEVEL’* REQUIRES THE USER TO INPUT THE CONTROLLER 
INTERRUPT PRIORITY LEVEL. DEFAULT IS LEVEL 5. 


THE 4TH QUESTION “‘DRIVE #** REQUIRES THE USER TO SPECIFY THE DRIVE 
NUMBER OF THE DRIVE TO BE TESTED. DEFAULT IS O (OCTAL). 

2.5 SOFTWARE QUESTIONS 

AFTER YOU Ba) ANSWERED THE HARDWARE QUESTIONS OR AFTER A START 

OR RESTART COMMAND, THE FOLLOWING PROMPT ASK YOU TO ENTER AN OPTION. 
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPH(S). 


“OPTIONS FOLLOW; 
=FORMAT 


—~£z 
mDo 
Deo 

—T 
oma 


E-2 
PTION (6=HELP) (D) Q ? * 
A 'O* RESPONSE WILL ALLOW THE USER TO FORMAT HEADERS AND DATA ON 
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THE DISK PACK. A_*1* RESPONSE WILL ALLOW THE USER TO VERIFY TD'S 
HEADERS. A ‘2° PONSE WILL ALLOW THE USER TO SCAN THE DISK 
PACK FOR NEW DEFECTS AND RECORD THEM, IF DESIRED. A ‘3° RESPONSE 
WILL ALLOW THE USER TO LIST THE TRACKS WHICH HAVE DEFECTS AND LIST 
THE HEADER INFORMATION OF THE DEFECTIVE SECTORS, IF DESIRED. A 
"G* RESPONSE WILL ALLOW THE USER TO MODIFY THE TRACK DESCRIPTOR. 
A ‘i RESPONSE WILL ALLOW THE USER TO WRITE THE SECOND FE CYLINDER 
A *6* RESPONSE WILL PRINT A LIST OF VALID OPTIONS FOR THE 


ONL 
FORMATTER PROGRAM (AS ABOVE). 
A *0* OR "2° RESPONSE TO THE PREVIOUS OPTION PROMPT WILL ALSO 
CAUSE THE be ee WARNING MESSAGE TO BE PRINTED TO THE OUTPUT 
DEVICE AND ASK A VERIFY QUESTION. 
“6 : CUSTOMER DATA WILL BE OVERWRITTEN ! 
CONTINUE (L) ? ° 
THE USER MAY OPT -~- STOP ANY FORMATTING OPERATION AT THIS 4 BY 


ANSWERING 'N* 10 THE yy AEs GUESTION OR CONTINUE TO THE NEX 
QUESTION WITH A ‘Y* RESPONSE 


THE USER MAY OPT TO CHANGE THE DRIVE PARAMETERS IN CERTAIN MODES 
OF OPERATION. YOU MAY DO SO BY ANSWERING THE FOLLOWING PROMPT, 
“CHANGE DRIVE PARAMETERS (L) N ? "* 


A *Y* RESPONSE WILL ALLOW THE USER TO CHANGE THE DRIVE PARAMETERS, 
WHILE A ‘N° RESPONSE WILL ASK THE NEXT APPROPRIATE QUESTION. 


“MIN CYL .(D) 0?" 
"MAX CYL (D) 630?" 
“MIN TRK (D) 0? "* 
"MAX TRK (D) 312 °° 


THE USER, BY STATING THE DESIRED PARAMETERS, MAY INCREASE OR 
DECREASE THE SCOPE OF OPERATION. 


WHEN THE FORMAT OPTION (0) IS SELECTED, THE nn are AFTER A FORMAT 
MAY BE DESELECTED VIA THE FOLLOWING QUESTION 


“INHIBIT WRITE CHECK (L) N ? ** 


A *Y* RESPONSE WILL INHIBIT THE WRITE-CHECK OPERATION. WHILE, A 
sieett tiie WILL TERMINATE CONSOLE DIALOGUE AND COMMENCE 


oo ay SCAN OPTION (2) IS SELECTED, THE sep QUESTION WILL BE 


"DO YOU WANT TO UPDATE TD(S) WITH NEW DEFECT(S. (L) N? 


SEQ 0008 
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A_‘Y* RESPON 


NSE CAUSE THE PROGRAM TO FORMAT THE DISK WITH THE 
NEWLY FOUND DEF 


WIiL E 
ECTS AFTER THE COMPLETION OF THE CURRENT PACK SCAN. 


oa LIST OPTION (3) IS SELECTED, THE FOLLOWING QUESTIONS WILL BE 


“LIST HEADER INFO IN DEFECT SECTOR(S) (L) N? "* 


A "N' RESPONSE WILL CAUSE THE FOLLOWING MESSAGE AND DATA TO BE 
" rie 4 TO THE OUTPUT DEVICE OF A TRACK THAT HAS A DEFECT IN 


TD(S) WITH DEFECTS FOLLOW: 
WORD#1 ( CYL) WORDM2 (TRK)(SEC) WORD#3 WORD#4 WORDMS WORDA6 
031122 (594.) 004777 (¢ 9.)(377) 5415. 398. 140000 140000 
071126 (598.) 004777 ¢ 9.)(377) 118. 4891. 108. 14 
NOTE: SEE TD & HEADER DEFINITIONS AT END OF THIS SECTION 
A_‘Y* RESPONSE WILL CAUSE THE ee gitte HE aes .Y DATA TO BE 
Sena 4 TO THE OUTPUT DEVICE OF A TRACK THAT HAS A DEFECT IN IT'S 
TD. DDED HEADER INFO IS THE HEADER INFORMATION OF THE 
SECTOR” IN WHICH THE DEFECT WAS PLACED; 
TD(S) a eer eens FOLLOW (INCLUDING HEADER INFO): 
WORDA1 ( CYL) WORD#2 (TRK)(SEC) WORD#S WORD#4 WORDAS WO 
031122 (594.) 004777 ( 9.)(377) 5415. - 140000 14 
004410 ( 8.) 176. 140000 140000 14 
004440 (32.) 221. 140000 140000 14 
071126 (598.) 004777 ( 9.)(377) 118. 4891. 108. 14 
004407 ( 7.) 52. 108. 140000 14 


NOTE: SEE TD & HEADER DEFINITIONS AT END OF THIS SECTION 


WHEN THE MODIFY OPTION (4) IS SELECTED, THE FOLLOWING QUESTION WILL 
BE ASKED TO DETERMINE THE MEANS BY WHICH THE USER WANTS TO MODIFY THE 
TRACK DESCRIPTOR, 


“MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 0? * 


A "0° RESPONSE WILL ALLOW THE USER TO INSERT A or hil BY THE 
WORD COUNT POSITION IN A PARTICULAR SECTOR ON THE DISK. THIS 
fag os USED WHEN A DEFECT OCCURS WITHIN THE DATA AREA 


OF CT 
A ‘1° RESPONSE we ALLOW THE USER TO INSERT A DEFECT BY THE 
NUMBER OF WORDS FROM INDEX PULSE ON A PARTICULAR sone ADDRESS. 
THIS METHOD SHOULD BE USED WHEN THE TRACK DESCRIPTOR AND/OR 
On OT sol vides st DO TO A DEFECT WHICH OCCURED IN EITHER 
A *2° RESPONSE WILL ALLOW THE USER TO CHANGE A DEFECT DIRECTLY 
IN THE TRACK DESCRIPTOR. THIS METHOD SHOULD BE USED WHEN 
RESTORING A TD BACK TO SOME ALREADY KNOWN CONDITION. 


THE FOLLOWING 2 QUESTIONS WILL BE ASKED TG DETERMINE THE DISK 
ADDRESS WHICH IS TO BE MODIFIED BY THE USER. 


SEQ 0009 
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Z 
US 
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10. bert te IS AN EXAMPLE OF MODIFIING THE TD BY ie MOD 


“CYLINDER ADDRESS (D) 0?" 

“TRACK ADDRESS (D) 0?" 
AFTER DETERMINING THE DESIRED DISK ADDRESS TO BE MODIFIED, ONE 
OF FOLLOWING SETS OF QUESTIONS WILL BE ASKED, DEPENDING ON WHICH 
METHOD OF MODIFICATION WAS CHOSEN. 

“SECTOR ADDRESS (D) ? " 

‘WORD IN SECTOR (D) 2?" 


AFTER THE CORRECT RESPONSE TO THE ABOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL. COMMENCE. 


“WORDS FROM INDEX (D) ? *" 


AFTER THE CORRECT RESPONSE TO THE ABOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL COMMENCE. 


“TYPE <CR> Hs INPUT (0=140000) DATA; 
TD WORDAS ( 0? 


TD WORDA4 (D) 0 ? 
TD WORDAS (D) 0 ? 
TD WORDM6 (D) 07" 


AFTER THE CORRECT RESPONSE TO THE AFOVE PROMPTS, THE DIALOGUE WILL 
TERMINATE AND MODIFYING WILL COMMERCE. 


ON COMPLETETION OF THE MODIFY OPE RARTION, THE USER WILL BE 
PROMPTED WITH THE FOLLOWING QUES: ION; 


“DO YOU WANT TO MODIFY ANYMORE D'S (L) N? °° 
A *N’ RESPONSE wile Se THE US"R TO CONTINUE TO NEXT DEVICE 
ON-LINE OR TO RETURN TO THE DRS PROMPT IF ONLY ONE DEVICE WAS 
BEING MODIFIED. A ‘Y° RESPONSE W.LL ao THE USER TO MODIFY 
ANOTHER TD WITHOUT RESTARTING THE PROGRA 
IFY ION 
NSERT A DEFECT WHICH IS IN THE DATA AREA OF A PARTICU AR ISK 
EXAMPLE 1) 
MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 0 ?<CR> 
CYLINDER ADDRESS (D) 0 ? 598<CR> 
TRACK ADDRESS (D) 0 ? 9<CR> 


CURRENT T 


D, 
WORDA1 ( CYL) WORD#2 (TRK)(SEC) WORD#3 WORDS WORDMS WORD#6 


SEQ 0010 


CZR 
USE 
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031126 (598.) 004777 ( 9.)(377) 140000 140000 140000 140000 

SECTOR ADDRESS (D) ? 7<CR> 

WORD IN SECTOR (D) ? 150<CR> 

CHANGED TD 

WORD#1 ( CYL) WORD#2 (TRK)(SEC) WORD#3 WORD#4 WORDMS WORDM6 

031126 (598.) 004777 ( 9.)(377) 5009. 140000 140000 140000 
$s 


DO YOU WANT TO MODIFY ANYMORE TD'S (L) N ? Y<CR> 


THE FOLLOWING IS AN EXAMPLE OF MODIFIING THE TD BY USING MODIFY OPTION 
"1°, TO INSERT A DEFECT WHICH IS IN TD OF OF A PARTICULAR DISK ADDRESS; 


NOTE: boy aos” OF WORDS FROM INDEX NEEDED TO MOVE A TD SHOULD 


AYS BE 118.(DECIMAL) AND TO MOVE HDR OQ SHOULD ALWAYS 
BE ib3. (DECIMAL). 


EXAMPLE 2) 


MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 0 ? 1<CR> 
CYLINDER ADDRESS (D) 598 ? <CR> 

TRACK ADDRESS (D) 9 ? <CR> 

sete TD, 

WORD#1 ( CYL) WORDM2 (TRK)(SEC) WORDS WORDA4 WORDAS WORDS6 
031126 (598.) 004777 ( 9.)(377) 5009. 140000 140000 140000 
WORDS FROM INDEX (D) ? 118<CR> 
a TD, 

WORD#1 ( CYL) WORD#2 ¢ TR) F358) WORD#3 WORD#4 WORDMS WORD#6 
071126 (598.) 004777 (¢ 9.)(377) 118. 4891. 140000 140000 
DO YOU WANT TO MODIFY ANYMURE TD'S (L) Y ? <CR> 


OWING IS AN tae OF MODIFIING THE TD BY USING MODIFY OPTION 
NSERT A_DEFECT ON A PARTICULAR DISK ADDRESS. IN THIS EXAMPLE 


L ADD A STACKED DEFECT TO THE LAST DEFECT; 
EXAMPLE 3) 


MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE) (D) 1 ? 2<CR> 
CYLINDER ADDRESS (D) 598 ? <CR> 
TRACK ADDRESS (D) 9 ? <CR> 


CURRENT TD, 
WORD#1 ( CYL) WORD 3 WORD#4 WORD#S WORD#6 
031126 (598.) 0047 


Da 
18. 4891. 140000 140000 


SEQ 0011 
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TD WORD#3 (D) 

TD WORDM4 (D) 0 ? 4891<CR> 

TD WORD#S (D) 0 ? 108<CR> 

TD WORD#6 (D) 0 ? <CR> 
WORDAT ( L) WORD#2 TAK) (366 ) WORDA3 WORD#S WORDAS WORDAS 
o71126 Gut} 004777 ¢ 9.)(377) 118. 4891. 108. 140000 
DO YOU WANT TO MODIFY ANYMORE TD'S (L) Y ? N<CR> 


TYPE <CR> TO at P80 9 2s DATA; 


THE FOLLOWING ARE THE DEFINITIONS FOR THE TD WORDS 1 THRU 6; 
WHERE, ‘WORD#1° IS THE 1ST WORD OF THE TD (IN OCTAL), 


BITS 0-9 CYLINDER ADDR 
BITS 10-11 ALWAYS 0 
BIT 12 ALWAYS 1 
BIT 13 TD CIDENTIFIES THIS IS TD RECORD) 
BIT 14 TD MOVED 
BIT 15 HDR 0 MOVED 
"CYL' IS THE CYLINDER ADDR (IN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 1, 
"WORD#2" IS THE 2ND WORD OF THE TD (IN OCTAL), 
BITS 0-7 SECTOR ADDR (ALWAYS ONES) 
BITS 8-15 TRACK ADDR 
*TRK® IS THE TRACK ADDR (IN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 
"SEC’ IS THE SECTOR ADDR (IN OCTAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 
*WORD#3" IS THE 3RD WORD OF THE TD (IN DECIMAL *), 
*WORD#4" IS THE 4TH WORD OF THE TD (IN DECIMAL *) 
"WORDMS' IS THE STH WORD OF THE TD (IN DECIMAL *) 
‘WORDM6" IS THE 6TH WORD OF THE TD (IN DECIMAL *) 


SKIP DEFECT DISPLACEMENTS. 
e A ea DISPLACEMENT IS A “NULL*, THE OUTPUT WILL BE 140000 


THE FOLLOWING ARE THE DEFINITIONS FOR THE HEADER WORDS 1 THRU 6; 
WHERE, *WORD#1" IS THE 1ST WORD OF THE HDR (IN CCTAL), 


BITS Q-11 CYLINDER ADDR 
BIT 12 FMT BIT 1=16 BIT FMT 


SEQ 0012 


CZR 
E 


Z 
US 
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; 0=18 BIT FMT 
FOR BAD SECTOR FLAGGING 
00D 
"CYL" IS THE CYLINDER ADDR (IN DECIMAL) OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 1, 
"WORD#2° IS THE 2ND WORD OF THE TD (IN OCTAL), 


BITS 0-7 SECTOR ADDR son9? 
BITS 8-15 TRACK ADDR (0-31. 


*TRK® IS THE TRACK ADDR (IN DECIMAL) OF THE TD, 


WHICH WAS EXTRACTED FROM WORD 2, 
"SEC IS THE SECTOR ADDR (IN OCTAL OF THE TD, 
WHICH WAS EXTRACTED FROM WORD 2, 
*WORD43" IS THE 3RD WORD OF THE TD (IN DECIMAL *), 
"WORD#4" IS THE 4TH WORD OF THE TD (IN DECIMAL *), 
*WORD#5* IS THE 5TH WORD OF THE TD (IN DECIMAL *) 
"WORD#6" IS THE 6TH WORD OF THE TD (IN DECIMAL *) 


SKIP DEFECT DISPLACEMENTS. 
* A ia DISPLACEMENT IS A "NULL", THE OUTPUT WILL BE 140000 


2.6 EXTENDED P-TABLE DIALOGUE 


UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED A 
A_MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A C 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINC 
THE ANSWERS ARE REPETITIOUS. 


E CONS 


“e A 
Q-FACTOR. THIS Q-FACTOR MAY 0 OR 1. 
TO BUILD A TABLE FOR ONE XY11 WITH. F 1Giit UN 


# UNITS (D) 2? 8<CR> 


—T 


UNIT 1 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB“DEVICE # (9) 2? O<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 16000N<CR> 
SUB-OLViCE # (0) ? 1<CR> 


SEQ 0013 


B 2 
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NOTICE THAT THE DEFAU 
NON=DEF AULT RESPONSE 


Q-FACTOR (9) 17 O<CR> 


UNIT 3 
CSR ADDRESS (9) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 4 
CSR ADDRESS (0) ? — 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR» 
UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 

UNIT 


6 
CSR ADDRESS (0) ?_ 160000<CR> 
SUB=DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR ADDRESS (0) ag 
SUB-DEVICE # a ? 
UL 
I 


Q-FACTOR (0) “che 


n~- 


MULTIPLE UNITS! 
AS YOU CAN SEE FROM THE ABOVE EXAMPLE, 


dO 


NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. 
NOT VERY EFFICIENT. 


VALUE FOR THE Q-FACTOR CHANGES WHEN A 
GIVEN. BE CAREFUL WHEN SPECIFYING 


THE HARDWARE PARAMETERS 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPEC 
Let ee THE SAME TABLE USING THE MULTIPLE SP 


# UNITS (D) 2? 8<CR> 


CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 

NIT 


UNIT 3 
CSR aad (0) ?_ 160000<CR> 
wet (0) 2? 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 


IF 
EC 


ICAT 
IFIC 


THE PROCEDURE SHOWN IS 


IONS HOWEVER. 


CATION 


SEQ 0014 
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CSR ADDRESS (0) ? 1e0900<CR> 
SUB-DEVICE # (0) 2? 6,7<CR> 
Q-FACTOR (0) 0 ? ici 
AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND O-FACTORS uERe “SPECIFIED. THE 
SERVICES ASSUME THAT THE SSR ADDRESS I$ 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
-"" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
. 3 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUS) 
ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND O-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
HEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 


SINCE T 
SPECIFIED IN THE THIRD PASS. 


ten Bhiea. PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 


# UNITS (D) 2? 8<CR> 
UNI1 1 
CSR Seiti's a t. yn 92 ae 
ae tly MY (0) 0-7 
Q-FACTOR (0) 0 ? 0, 1 Reon  1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL MO REREA 


(COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO R T 


EAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1, BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND S5OHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE *'R NAME'’, WHERE NAME IS THE NAME OF The BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *’START" 

5. ANSWER THE ‘’CHANGE HW’* QUESTION WITH ‘'y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “'CHANGE SW"’ QUESTION WITH ‘'N’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED iN SECTIONS 2.3 AND 


SEQ 0015 
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3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


Ne ARE THREE LEVELS OF ay ones? AGES THAT MAY BE ISSUED BY 
DIAGNOSTIC: GENERAL Se tae” D EXTENDED. GENERAL ERROR * 
ARE ALWAYS PRINTED UNLESS THE ' TER’ "FLAG IS SET (SECTION 2.3). 


THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = fay og UES NAME 
TYPE = ERR R TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR N UMBER 

UNIT NUMBER = ie N (N IS _LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR pS apg b ARE aa 3 ig! CONTAIN SOME ADDITIONAL 

eh ABOUT THE ER a THESE A ons ti PRINTED UNLESS 
THE ‘“[ER" LAGS ARE SET (SECTION 2.3). THESE MESSAGES 

ARE PRINTED” AFTER THe ASSOCIATED GENERAL NMESSAGE.. 

EXTENDED ERROR ag dong be in SUPPLEMENTARY pr INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAY 


. AL 
PRINTED UNLESS THE “‘IER*’ Mar OR ""IXR'’ FLAGS ARE SET (SECTION 2.3). 


R 
THESE MESSAGES ARE ie 3 THE ASSOCIATED GENERAL ERROR 


ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

Tee ECTS ICSI Tritt i eric c irri iii iii iiitiiitiiiiiiiity 
- TD ADDRESS INCORRECT - 


THIS MESSAGE IS GENERATED WHEN A TRACK DESCRIPTOR IS READ AND FOUND 
TO CONTAIN THE WRONG ADDRESS INFORMATION. 


Tee ETI t ici i i itiiiiiiiiiiiiiiiiiii iii ii iiit. 
- TD FORMAT INCORRECT - 


THIS MESSAGE IS GENERATED WHEN A TRACK DESCRIPTOR IS FOUND 
TO CONTAIN AN INCORRECT FORMAT. 


TTT IIIT IIIT I IIIT IIIT citi iii iii i iii iii iiiii titi tiiiiy) 
- COMPOSITE ERROR SET - 
THIS MESSAGE IS GENERATED WHEN A COMPOSITE ERRROR IS DETECT 


A 
COMPOSITE ERROR (RPDS:BIT 14) SETS WHEN A HARDWARE MALFUNCT 
HAS BEEN DETECTED. 


—nm 
ovo 
za: 


aon 
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PPPS PIII TIT ITPrrrre iti iii rir ii ric i tier iti tii iii iii titi t is) 
= DRIVE HUNG, DRY NOT SET IN TiME = 

THIS Se a MY ew tie WHEN RPDS:DRY (BIT 07) 

DOES NOT SET WITHIN A GIVEN TIME PERIOD, IT INDICATES THAT 

"GO"' (RPCS1:B1T 0) DID NOT RESET IN TIME, THAT THE DRIVE IS HUNG. 


SHAK AKAAKAHHAAHERERARARARHRAARAAHEHAEEAEEHEHEHTETHHAHERAAHEHERRARAeeAeeeee 
- DRIVE WRITE LOCKED - 


THIS MESSAGE IS GENERATED WHEN THE WRITE LOCK BIT (RPDS:BIT 11) 
1S FOUND TO BE SET WHEN A WRITE OPERATION IS ABOUT TO BE PEFORMED. 


LARRRARSRRASARASLASARELEEERE SESE RE RRR SERRE EER ER EERE ERE RE SERRE ERS EES E EES 
~ DRIVE OFFLINE - 


THIS MESSAGE IS GENERATED WHEN MEDIUM-ON-LINE (RPDS:BIT12) 
1S FOUND TO BE RESET. 


TET ISIS IIS IT ITT iii tere rir r irr et Tere t iii t iii iii iii ii iiiitiiy) 
= UNEXPECTED ATTN OCCURRED - 


THIS MESSAGE IS GENERATED ANYTIME AN ‘ATTENTION’ (RPDS: BIT 15) 
IS RECEIVED WHEN IT IS NOT EXPECTED. 


TIP ISTIC ISIC ITI t titi iit r iti trite cei titi titi iii iii iiiiiiiiiiit) 
= WRITE CHECK ERROR SET = 

THIS MESSAGE IS GENERATED WHEN A WRITE CHECK ta IS 

PERFORMED SUBSEQUENT TO A FORMAT OPERATION THE 

WRITE CHECK ERROR (RPCS2:BIT 14) IS FOUND to” BE ASSERTED. 


eee P PITTI TIT TIT iii iii titi irri iii titi iii titi iiiiiiiiiiiiiiity 
- FORMAT VERIFY ERROR - 

THIS MESSAGE IS GENERATED WHEN A VERIFY OPERATION FAILS TO 

RECEIVE THE SAME DATA FROM THE DRIVE AS THE COMPUTED EXPECTED 

DATA, RESULTING IN A DATA MISCOMPARE ERROR. 


TIT ITATIII IIIA TTI I IIIT TTI tii it iii tit iiitiitisiiiiiiiiiiiiit 
= DRY DIDN*T RESET WHEN EXPECTED - 

THIS MESSAGE IS eta te WHEN DRIVE READY (RPDS:BIT 07) 

FAILS TO RESET AFTER A COMMAND HAS BEEN ISSUED, INDICATING 

THAT THE COMMAND MAY HAVE NOT BEEN EXECUTED BY THE DRIVE. 


(RE RRRERBSESLALERR SERA REL E RRR E RARER RRR RRR RARER RRR RRR E RRR R RRR RRR RRR RRR SE OD 


- TRANSFER ERROR SET = 


SEQ 0017 


F 
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THIS MESSAGE IS GENERATED WHEN A CONTROLLER ERROR ‘TRANSFER ERROR’ 
HAS BEEN DETECTED (RPCS1:BIT 14). 


ITI I ITI Titi ici ie si iiiiiiiii iii titi titi iii iiii iii iii iis) 
= SPeCIAL CONDITION SET - 

THIS MESSAGE IS GENERATED WHEN ete CONDITION (RPCS1: BIT 15) 

1S FOUND TO BE ASSERTED oe IT 1S NOT EXPECTED. SPECIAL CONDITION 

CAN BE SET ANY DRIVE ON THE STRING AS WELL AS THE UNIT UNDER 

TEST. IT CAN I NDICATE A SUB-SYSTEM FAILURE OR A FAILURE OF THE 

UNIT UNDER TEST. 


SARK KAAARAARAATAEAARAEAARAARAAERARARAAAREREAAAAAAAAEAEEAAAAAAARAAAARAREEREEARAHEEREE 


= COULD NOT SUPPLY READABLE TD THRU RELOCATION - 

THIS MESSAGE GENERATED WHEN THE SCANNER MODE OF OPERATION IS 

UNABLE TO RESTORE A_ TRACK tog ths RECORD THROUGH RELOCATION OF THAT 
RECORD. THE TRACK IN QUESTION MUST THEN BE RETIRED VIA THE OPERATING 
SYSTEM, OR THE HDA MUST BE REPLACED. 


RERRAAAAAAAAATAAAAAAARAAAAEAAAAAARAAAAAAAAAEAAEAAEEAARAEAAAEAREREHRAAAAEREREREEE 


= UNRECOVERABLE ERROR DURING PACK SCAN - 

THIS MESSAGE IS GENERATED WHEN, DURING A PACK SCAN WE pata t 

TOO MANY NON-DATA ERRORS ARE DETECTED DURING THE WRITE DATA OR 

WRITE CHECK DATA OPERATIONS. EXCESSIVE FAILURES OF THIS TYPE USUALLY 
INDICATE THE PRESENCE OF BROKEN HARDWARE. 


PRE RASESZASELELELEE SEER EERE SESE SESE REAR ARAB ARRAS ARERR RRR R RRR RRR ARR ARRAS OD 


- RANDOM WRT CHK ERRORS -CAN'T RESOLVE DEFECTS- - 
THIS MESSAGE IS GENERATED WHEN TOO MANY RANDOM a CHECK 
we: ARE DETECTED. IT INDICATES THE PRESENCE OF NOJS® OR 

A MARGINALLY OPERATIONAL RPO7 WHICH MUST BE REPATRED BEFORE THE 
SCAN OPERATION CAN PROCEED. 


REHEAT AAEAAEAEAAAARAAARARARAEAAAAAAAAEAAAA AAA AAEKEEAAAAAEAAAEAAEA 


= NON-EXISTENT DRIVE - 


THIS MESSAGE IS GENERATED WHEN A USER SELECTS A DRIVE 
WHICH CAUSES NON EXISTENT DRIVE (RPCS2:BIT 11) TO SET. 


POUT IIIT TIT ILTTLTITT iii i iii titi titi iiiiiiiiiiiiiiiiiii iy 
- DRIVE NOT AN RPO7 - 

THIS Sane IS GENERATED WHEN THE DRIVE T 
DOESN'T CONTAIN THE CORRECT IDENTIFICATION 
DRIVE OTHER THAN A RPO7 HAS BEEN SELECTED. 


SHHHHAHHAEAAATAKARAHAAARAHAARAATAHRERARA EATER ARRAAREEARHAHeReRAAeHeee 
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3.3 SPECIFIC WARNING MESSAGES 


RAAT AAAAAAAAAEAARAARAAAAES AEAAAEAAAAEETEAAEAAAAAERERARAAAAAAEARERERAAEAHAEES 


= ** WARNING ** TD RECOMD IS FULL, INPUT DATA REJECTED - 


THIS MESSAGE IS GENERATED WHEN A USER ATTEMPTS TO ADD A DEFECT SKIP 
TO A TRACK DESCRIPTOR RECORD WHICH IS ALREADY FULL (4 DEFECTS). 


eT IIIT TIT Iii iii t iii iii i iii iii iiii iii iii 
= * WARNING ** CYL XXX., TRK YY. HAS 4 DEFECTS IN TD RECORD - 

THIS Sizes IS GENERATED ‘~~ A TD IS DETECTED WITH FOUR DEFECTS IN 
IT*S RECOR WHERE, XXX IS THE CYLINDER ADDRESS AND YY IS THE TRACK 
ADDRESS OF THE TD JUST READ. (DECIMAL) 


SARAH ARAARAAAARAARARARARAAAAAAAAAAAAARERAAAAEAAATAARAEEAAREREKERAEKEEEEREE 


= ** WARNING ** USR BSF iS FULL, NO MORE ENTRIES ALLOWED - 


ate MESSAGE IS GENERATED WHEN AN ah et IS MADE TO ADD A BAD SPOT 
TO A FULL USER BAD SECTOR FILE (DEC144 


REAR AARERAERAAERARAARAAAAAAAREAATAERERAAAARAHAAEEARAAEAAAREREAHAREKAAREREAE 


= ** WARNING ** CORRUPT BAD SECTOR FILE, WILL BE INITIALIZED - 

THIS MESSAGE IS GENERATED WHEN AN ATTEMPT TO READ THE BAD SECTOR FILE 
TRACK, RESULTS IN AN UNRECOVERABLE READ ERROR OR CORRUPT DATA IS 
DETECTED IN THE CONTENTS OF THE FILE. THE BSF WILL BE INITIALIZED ON 
COMPLETETION OF THE TEST. 


CHRHAHARAAAHH EKA RAAAA HAH eAAAHA HAHA Te AeA eee eee ee eeee Kee eeAAeeeeeeeeeee 
= # WARNING ** THERE ARE XX. TRACK(S) WITH 4 DEFECTS - 

THIS MESSAGE IS GENERATED AT THE END OF A PASS, TO REMINDER THE USER 
THAT SOME NUMBER OF TRACKS HAD FOUR DEFECTS. WHERE, XX IS THE NUMBER 
OF TRACKS HAVING FOUR DEFECTS. (DECIMAL) 


PITT IIIT IIIT TTL iit iii iii iii iii tii iii iii iii iii 
4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 

rOrAt, NUMBER ERRORS REPORTED SINCE THE PROGRAM oe ze STARTED. 


THE hEOP P*’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST=DEVICE 
PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 
OF THE HARDWARE P-TABLES, AND IS USED AS A ‘TEMPLATE’ FOR BUILDING THE 


SEQ 0019 


H 
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P-TABLES. 

WORD 176700 ;RPCS1 “ss REGISTER ADDRESS 

«WORD 254 SVECTOR ADDRESS 

“WORD 240 3BR LEV EL 5 DEVICE 

WORD 0 {DRIVE NUMBER 
6.0 PROGRAM PROCESSES 
6.1 FORMAT PROCESS 
A FORMAT PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 

1. READ TRACK DESCRIPTOR 


2. FuPMAT TRACK (WRITE TRACK HEADERS & DATA ACCORDING TO THE 
DFF->CT INFO IN THE TRACK DESCRIPTOR) 


3. VERIFY TRACK FORMAT, WITH WRITE CHECK (IF ENABLED) 
4. CREATE*RESTORE DEC STD 144 AREA, 


6.2 VERIFY PROCESS 
A VERIFY PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 
1. READ TRACK DESCRIPTOR 


2. CONSTRUCT MAP OF EXPECTED FORMAT IN MEMORY BASED ON 
CONTENTS OF TRACK DESCRIPTOR JUST READ. 


3. cnene a (COMMAND MODIFIER BIT=1) AND CHECK AGAINST 
6.3 SCAN PROCESS 
A SCAN PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 


1. SCAN PACK TRACK BY TRACK BASIS, !.OOKING FOR DEFECTS IN THE 
TD, HEADER AND DATA PORTIONS OF EACH SECTOR. 


A. READ TRACK DESCRIPTOR 
B. READ HEADERS (COMMAND MODIFIER BIT=1) 
C. WRITE DATA & VERIFY WITH WRITE CHECK COMMAND 
NOTE: THE SCAN PROCESS TAKES APPROXIMATELY 2 HOURS PER DRIVE. 


2. ANY PERSISTENT ERRORS WILL CAUSE THE TRACK DESCRIPTOR TO 
BE READ AND APPENDED IN MEMORY. 


3. WRITE TRACK DESCRIPTOR (ACCORDING TO THE BUFFER CRE’ *D BY 
THE PACK SCAN OPERATION. IF ENABLED) 


4. FORMAT TRACK (WRITE TRACK HEADERS & DATA ACCORDING TO THE 
DEFECT INFO IN THE TRACK DESCRIPTOR) 
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5. VERIFY TRACK FORMAT, WITH WRITE CHECK 


6.4 MODIFY PROCESS 
A MODIFY PROCESS WILL CONSIST OF THE FOLLOWING PROGRAM OPERATIONS; 
1, READ TRACK DESCRIPTOR 
2. MODIFY TRACK DESCRIPTOR 
3. WRITE TRACK DESCRIPTOR 
4 


FORMAT TRACK (WRITE TRACK HEADERS & DATA ACCORDING TO THE 
DEFECT INFO IN THE TRACK DESCRIPTOR) 


5. VERIFY TRACK FORMAT, WITH WRITE CHECK 
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REM @ 
VERSION (CZRJK=-A-0) 


1, THIS VERSION IS THE STARTING POINT FOR CX DIAGNOSTIC SUPPORT OF 
THE RPO7 DISK DRIVE. 


CZRJ 
HIST 
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—_ Lan 1s 9 = 8 Ls ss 2 ss 


ODO NNN NA AA OWL 


NWO SW ("ODO VWNUTN 


000000 


002000 


002046 


002000 


ooo 
ooo] —NWO 
SOOOWNNWw 


060 
000001 
001000 
027716 
000000 
002130 
000000 
117664 
00000 
000000 
000000 
000000 
002124 
000000 
000000 


s*LAST REVISION 01-JAN-83 
CZRJKAO RPO7 FMTR/SCANNER 


-TITLE 
~SBTTL 


PROGRAM HEADER 
-ENABL AMA,ABS 


2000 


pte 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


LSNAME:: 


LSREV:: 
LSDEPO:: 
LSUNIT:: 
LSTIML:: 
LSHPCP:: 
LSSPCP:: 
LSHPTP:: 
LSSPTP:: 
LSLADP:: 
LSSTA:: 
L$CO:: 
LSDTYP:: 
LSAPT:: 
LSDITP:: 
LSPRIO:: 
LSENVI:: 
LSEXP1:: 


DIAGNOSTIC NAME 


7C/ 
/2/ 
/R/ 
4J3/ 
/k/ 
0 
0 
0 
sREVISION LEVEL 
/A/ 
30 
/0/ 
sNUMBER OF UNITS 
TSPTHV 
sLONGEST TEST TIME 
1000 
sPOINTER TO H.W. QUES. 
LSHARD 
. sPOINTER TO S.W. QUES. 
sPTR. TO DEF. H.W. PTABLE 
LSHW 
. ;PTR. TO S.W. PTABLE 
:DIAG. END ADDRESS 
LSLAST 
0 sRESERVED FOR APT STATS 
0 
0 sDIAGNOSTIC TYPE 


;APT EXPANSION 

:PTR. TO DISPATCH TABLE 
LSDISPATCH 
;DIAGNOSTIC RUN PRIORITY 
FLAGS DESCRIBE HOW IT WAS SETUP 


sEXPANSION WORD 


SEQ 0023 
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002046 000000 -WORD 0 

002050 LSMREV:: ;SVC REV AND EDIT # 
002050 003 -BYTE  C$REVISION 

002051 003 -BYTE CSEDIT 

Oo5pe5 LSEF:: sDIAG. EVENT FLAGS 
002052 000000 -WORD 0 

002054 000000 eWORD OQ 

002056 LSSPC:: 

002056 000000 eWORD OQ 

002060 LSDEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 002600 »WORD LS$DVTYP 

ites LSREPP:: 3PTR. TO REPORT CODE 
002062 000900 -WORD 0 

002064 LSEXP4:: 

002064 000000 eWORD O 

002066 LSEXPS:: 

002066 000000 -WORD 0 

002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 000000 -WORD 0 

002072 L$DUT:: ;PTR. TO DROP UNIT CODE 
002072 900000 eWORD 0 

002074 LSLUN:: ;LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD 0 

002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
002076 002606 «WORD LS$DESC 

002100 LSLOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 

002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 -WORD 0 

002104 LSICP:: sPTR. TO INIT CODE 
002104 025340 «WORD LS$INIT 

002106 LSCCP:: :PTR. TO CLEAN-UP CODE 
002106 026336 -WORD LSCLEAN 

002110 LSACP:: sPTR. TO AUTO CODE 
002110 026334 -WORD LS$AUTO 

002112 LSPRT:: 3;PTR. TO PROTECT TABLE 
002112 025332 eWORD LS$PROT 

002114 LSTEST:: 3; TEST NUMBER 

002114 000000 -WORD 0 

002116 LSDLY:: ;DELAY COUNT 

002116 000000 -WORD 0 

002120 LSHIME:: 7PTR. TO HIGH MEM 
092120 000000 «WORD 0 


199 


Mm 2 
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DISPATCH TABLE 
-SSTTL DISPATCH TABLE 
34+ 
& ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
2 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
7 ° 
8 002122 000001 . WORD 
002124 LSDISPATCH:: 
002124 026660 «WORD 11 


. 
as 


N 
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: -SBTTL DEFAULT HARDWARE P-TABLE 
p++ 
4 3; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
5 3; THE TEST=-DEVICE fetes HASH THE STRUCTURE OF THIS TABLE 
6 3 IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
{ ; AND IS USED AS A NE APA TE’’ FOR BUILDING THE P-TABLES. 
9 P 
10 002126 000004 -WORD 110000-L$HW/2 
002130 SHW: : 
yd 0 DFPTBL:: 
11 002130 176700 -WORD 176700 RPCS1 = 1} aaa ADDRESS 
12 002132 000254 -WORD 254 [VECTOR DRESS 
13 002134 000240 -WORD 240 3BR LEVEL a DEVICE 
1% 002136 000000 -WORD 0 ‘DRIVE NUMBER 
25 002140 L10000: 


B 3 
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1 -SBTTL SOFTWARE P-TABLE 

369 

; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

3; PRUGRAM AS peer som™, PARAMETERS. THESE PARAMETERS ARE 


; SET UP AT ASSEMBL ME AND MAY BE VARIED BY THE OPERATOR 
AT RUN TIME. 


000000 WORD 110001-L$SW/2 


SEQ 0027 


C2 
GL 
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-SBTTL GLOBAL EQUATES SECTION 


EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
N MORE THAN ONE TEST. 
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000001 
001000 


000001 


°o 
2 
“wy 


OR SUPERVISOR TO PROGRAM COMMUNICATION 
; ; START COMMAND WAS ISSUED 

: CONTINUE COMMAND WAS ISSUED 

; A POWER-PAIL /POUERCUP OCCURRED 


000040 


aT 
2 oe oO s a 


 v20DM 


000034 


Oo 
o 
o 
o 
o 
> 
eee. MmmMmmme.cee-9s OWMMOOOOoaworq:- 


; PRIORI 
000340 PR 


LEVEL DEFINITIONS 


000100 


dD 3 


CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN“83 12:22:44 PAGE 11-1 SEQ 0029 

GLOBAL EQUATES SECTION 
000040 PRIOI== 40 
000000 PRIOO== 0 

sOPERATOR FLAG BITS 

000004 Evi== 4 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 1SR== 100 
000200 UAM== 200 
000400 BOE == 400 
001900 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


' 2 
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PMOPIPIMINIPININD OS OS ew 
FUN —$ OC OONA VSWR HOO ONOUE WR -OOONAUE wh 


49 


PPAAAASIT 
NO AE WHO 


000100 


100000 


000001 


100000 


000001 


004000 


~SBTTL RHXX REGISTERS 
sCONTROL AND STATUS REGISTER 1 (RPCS1) 


INTEN == 100 ; INTERRUPT ENABLE (BIT #6) 

RDY == 200 READY (BIT @# 7) 

Al6 == 400 ;HIGH ORDER BUS ADDRESS BIT (BIT # 8) 
Al? == 1000 HIGH ORDER BUS ADDRESS BIT (BIT # 9) 
PSEL == 2000 PORT SELECT (BIT # 10) 

MCPE == 20000 :MASSBUS PARITY — (BIT # 13) 

TRE == 40000 ; TRANSFER ERROR (BIT # 14) 

sc == 100000 :SPECIAL CONDITION (BIT # 15) 


sWORD COUNT REGISTER (RPWC) 
sEACH BIT IS CALLED BY BIT NUMBER 


BUS ADDRESS REG 
IS C 


STER (RPBA) 
sEACH BIT E 


EGI 
ALLED BY BIT NUMBER 


CONTROL AND STATUS REGISTER 2 (RPCS2) 


US} == 1 UNIT SELECT (BIT #0) 

US2 == 2 sUNIT SELECT (BIT #1) 

USS z= 4 UNIT SELECT (BIT #2) 

BAI == 10 US ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT == 20 sMASSBUS PARITY INHIBIT (BIT #4) 
CLR == 40 sCLEAR (BIT #5) 

IR == 100 : INPUT READY (BIT #6) 

OR == 200 sOUTPUT READY (BIT #7) 

MPE == 400 sMASSBUS PARITY ERROR (BIT #8) 
MXF == 1000 MISSED TRANSFER ERROR (SIT #9) 
PGE == 2000 PROGRAM ERROR (BIT #10) 

NEM == 4000 NON EXISTENT MEMORY (BIT #11) 
NED == 10000 NON EXISTENT DRIVE (BIT #12) 
UPE == 20000 sUNIBUS PARITY ERROR 

WCE == 40000 WRITE CHECK ERROR (BIT #14) 
DLT == 100000 sDATA LATE (BIT #15) 

DATA BUFFER REGISTER (RPDB) 

EACH BiT IS DEFINED BY BIT NUMBER 

-SBTTL RPO? REGISTERS 

CONTROL AND STATUS 1 (#00) 

GO == 1 3:60 BIT (BIT #0) 

F1 == 2 FUNCTION CODE BIT #1 

F2 == 4 FUNCTION CODE BIT #2 

F3 == 10 sFUNCTION CODE BIT #3 

F4 == 20 FUNCTION CODE BIT #4 

F5 == 40 sFUNCTION CODE BIT #5 

DVA == 4000 DEVICE AVAILABLE (BIT #11) 


SEQ 0030 


F 
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RPO? REGISTE 


58 

a DRIVE STATUS REGISTER (RPDS <#01>) 

61 000001 OM ss 1 sOFFSET MODE (BIT #0) 

62 000002 EWN ss 2 TEAR LY WARNING (BIT #1) 

63 000004 ILEV ss 4 INTERLEAVING AVAILABLE (BIT #2) 
64 000100° V == 100 [VOLUME VALID (BIT #6) 

65 000200 DRY == 200 TA READY (BIT #7) 

66 000400 DPR == 400 [DRIVE PRESENT (BIT #8) 

67 001000 PGM == 1000 SPROGRAMABLE (BIT #9) 

68 002000 Lat == 2000 ‘LAST BLOCK TRANSFERRED (BIT #10) 
69 004000 WRL == 4000 sWRITE LOCKED (BIT #11) 

70 010500 MOL == 10000 EDIUM ON LINE (BIT #12) 

71 020000 PIP == 20000 sPOSITIONER IN PROGRESS (BIT #13) 
72 040000 ERR == 40000 OMPOSITE ERROR (BIT #14) 

3 100000 ATA == 100000 SATTENTION ACTIVE (BIT #15) 

75 

S sERROR REGISTER #1 (RPER1 <#02>) 

78 000001 ILF ss 1 : ILLEGAL FUNCTION (BIT #0) 

79 000002 ILR sz 2 s ILLEGAL REGISTER (BIT #1) 

80 000004 RMR s= 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
81 000010 PAR s= 10 sPARITY ERROR (BIT #3) 

82 000020 FER == 20 sFORMAT ERROR (BIT #4) 

as 000040 WCF == 40 ‘WRITE CLOCK FAIL (BIT #5) 

84 000100 ECH == 100 SECC HARD ERROR (BIT #6) 

85 000200 HCE == 200 sHEADER COMPARE ERROR (BIT #7) 
86 000400 HCRC == 400 ‘HEADER CRC ERROR (BIT #8) 

87 001000 A == 1000 sADDRESS OVERFLOW ERROR (BIT #9) 
BB 002000 IAE == 2000 s INVALID ADDRESS ERROR (BIT #10) 
89 004000 WLE == 4000 sWRITE LOCK ERROR (BIT #11) 

90 010000 DTE == 10000 sDRIVE TIMING ERROR (BIT #12) 

91 020000 OPI == 20000 sOPERATION INCOMPLETE (BIT #13) 
92 040000 UNS == 40000 sDRIVE UNSAFE (BIT #14 

9 100000 DCK == 100000 DATA CHECK ERROR (BIT #15) 

95 

ae sDIAGNOSTIC MAINTAINABLILTY REGISTER (RPMR1 <#03>) ‘ 

98 100000 DMD == 100000 DIAGNOSTIC MODE (BIT #15) 

100 
101 sATTENTION SUMMARY PSEUDO REGISTER (RPAS <#04>) 

103 000001 ATO ss 1 DEVICE O (BIT #0) 

104 000002 AT1 ss 2 :DEVICE 1 (BIT #1) 

105 000004 AT2 ss 4 DEVICE ¢ (BIT #2) 

106 000010 AT3 sz 10 DEVICE 3 (BIT #3) 

107 000020 AT4 sz 20 sDEVICE 4 (BIT #4) 

108 000040 ATS == 40 sDEVICE 5 (BIT #5) 

109 000100 AT6 == 100 DEVICE 6 (BIT #6) 

ano 000200 AT? == 200 sDEVICE 7 (BIT #7) 

112 

113 DESIRED SECTOR/TRACK ADDRESS REGISIER (RPDA <#05>) 

114 sEACH BIT 1S CALLED BY BIT NUMBER 


“NS 


ZY 
mo 


ee el eee ee eel 


latipes ins adi spewing ear ott 
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sDRIVE TYPE REGISTER (RPDT <#06>) 


000001 DRTO == DRIVE TYPE NUMBER (BIT #0) 
000002 DRT1 == 2 DRIVE TYPE NUMBER (BIT #1) 
000004 DRT z= 4 DRIVE TYPE NUMBER (BIT #2) 
000010 DRT == 10 DRIVE TYPE NUMBER (BIT #3) 
000020 DRT4 == 20 DRIVE TYPE NUMBER (BIT #4) 
000040 DRTS == 40 sDRIVE TYPE NUMBER (SIT #5) 
000100 DRT6 == 400 DRIVE TYPE NUMBER (BIT #6) 
000200 DRI7 == 200 DRIVE TYPE NUMBER (BIT #7) 
000400 DRT8 == 400 DRIVE TYPE NUMBER (BIT #8) 
004000 DRO == 4000 sDRIVE REQUEST REQUIRED (BIT 411) 
020000 MOH == 20000 ye le HEAD TYPE ae (BIT #13) 
040000 TAP == 40000 TAPE DRIVE ‘BIT #14) 
100009 NBA == 100000 :NOT BLOCK ADDRESSED (BIT #15) 

;LOOK AHEAD REGISTER (RPLA <#07>) 
000100 $¢1 == 100 sSECTOR COUNT FIELD 1 (BIT #6) 
000200 $¢2 == 200 sSECTOR COUNT FIELD 2 (BIT #7) 
000400 S¢4 == 400 SECTOR COUNT FIELD 4 (BIT #8) 
001000 $¢8 == 1000 sSECTOR COUNT FIELD 8 (BIT #9) 
002000 $C16 == 2000 SECTOR COUNT FIELD 16 (BIT #10) 
004000 $¢32 == 4000 sSECTOR COUNT FIELD 3¢ (BIT #11) 
010000 $(64 == 10000 SECTOR COUNT FIELD 64 (BIT #12) 

:RPO7 SERIAL NUMBER REGIST < os, <#10>) 

sEACH BIT IS CALLED BY BIT NUMBER 

RPO7 OFFSET REGISTER (RPOF <#11>) 
000200 OFFDIR == 200 : OFFSET DIRECTION (BIT #7) 
002000 HC] == 2000 ;HEADER COMPARE CODE INHIBIT (BIT #10) 
004000 EC] == 4000 SERROR CORRECTION soos INHIBIT (BIT #11) 
010000 FMT16 == 10000 316 pit FORMAT (BIT #12) 
040000 MTD == 40000 ;MOVE TRACK DESCRIPTOR (BIT #14) 
100000 CMOD == 100000 COMMAND MODIFIER (BIT #15) 

;RPO7 DESIRED CYLINDER ADDRESS (RPDC <#12>) 

EACH BIT IS CALLED BY BIT NUMBER 

;RPO7 CURRENT CYLINDER ADDRESS (RPCC <#13>) 

sEACH BIT IS CALLED BY BIT NUMBER 

;RPO7 ERROR REGISTER 3 (RPER3 <#15>) 
000002 SCF == 2 SYNC CLOCK pai uae ‘ety #1) 
000004 SBE z= & [SYNC BYTE ERROR (BIT #2) 
000010 DPE == 10 :DATA PARITY ERROR (BIT #3) 


H 
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100000 


000001 


000075 


000100 


000010 


‘ SEQ 0033 
SDF == 20 sSERDES DATA FAILURE (BIT #4) 
OCU == 40 sDC UNSAFE (BIT #5) 
IXuU == 100 s INDEX UNSAFE (BIT #6) 
DvC == 200 sDEVICE CHECK (BIT #7) 
PHF z= 400 38080 PROCESSOR HANDSHAKE FAILURE (BIT #8) 
LCE == 1000 3LOSS OF CYLINDER ERROR (BIT @ 
LBC == 2000 sLOSS OF BIT CLOCK (BIT #10) 
DSE == 20000 sDEFECT SKIP ERROR (BIT #13) 
SKI == 40000 sSEEK INCOMPLETE (BIT #14) 
BSE == 100000 :BAD SECTOR ERROR (BIT #15) 


;RPO7 ERROR REGISTER #2 (RPER2 <#14>) 


WRU == 400 ;WRITE READY UNSAFE (BIT #8) 
WOR == 1000 [WRITE OVERRUN (BIT #9) 

Rwu1 = ==_- 2000 SREAD/WRITE UNSAFE #1 (BIT #10) 
RwU2 == 4000 TREAD/WRITE UNSAFE #2 (BIT #11) 
Rwu3 = == _: 10000 TREAD/WRITE UNSAFE #3 (BIT #12) 
CPU == 20000 :CPU UNSAFE (BIT #13) 

CPE == 40000 :CROM PARITY ERROR (BIT #14) 
PGE == 100000 [PROGRAMING ERROR 

SECC POSITION REGISTER (RPECT <#16>) 

TEACH BIT IS DEFINED BY BIT NUMBER 


sECC PATTERN REGISTER (RPEC2 <#17>) 
EACH BIT IS DEFINED BY BIT NUMBER 


-SBTTL RPO? DRIVER COMMANDS 


NOOP s= } NO rene Ie 
SEEK ss § 
RECAL sz 7 ‘RECAL IBRATE 
DRVCLR == 11 :DR IVE CLEAR 
RELSE == 13 RELEASE 
READIN == 21 READ IN PRESET 
SEARCH == 31 $ CH 
DIAG == 35 :Di Gnostic ah 
WCKD ss $1 WRITE CHECK DAT 
CKHD == 53 {WRITE CWE CK HEADER & DATA 
WRIDAT == 61 SWRITE DAT 
FMTRK == 63 + FORMAT TRA 
WRTTD == 65 sWRITE TRACK DESCRIPTOR 
RDDAT ss 71 3 REA D DATA 
RDHD sz 73 ;READ HEADER & DAT 
RDTD z= 75 TREAD TRACK DESCRIPTOR 
;SOME TRACK FORMAT EQUATES FOR 16 BIT MODE (IN WORDS) 
G1 == 64, sSIZE OF GAP 1 
1D s= 8, SIZE 
G2 ss 57, sSIZE OF GAP 2 
HDRO == 8, sSIZE OF HEADER 0 
HDR == 8. sSIZE OF HEADER 
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233 000040 63 == F sSIZE OF GAP 3 

Sie 00040 DATA == 258. sSIZE OF id FIELD 

§ 5 00004 G4 == 37, sSIZE OF GAP 

$38 000154 DS == 108. sSIZE OF DEFECT SKIP 

238 000022 MSEG == 18, SIZE OF MINIMUM DATA SEG e NT 
tes 140000 NULL == 140000 NULL DATA FOR TRACK DESCRIPTOR 
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000000 
000000 


000037 
000000 


000000 


000000 


SEQ 0035 
-SBTTL GLOBAL DATA SECTION 


goo 
; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


BGNPAT 


«WORD 030221 sPATTERN #1 (WORST CASE) 

WORD 030¢¢1 

“WORD 147556 ;PATTERN #2 (NOT WORST CASE) 

“WORD 147556 
ENDPAT ==, 
CONTIN:: .WORD 0 : CONTINUE 10 OVERWRITE CUSTOMER DATA IF = 
WRIFE2:: .WORD 0 [USED TO PERMIT REWRITE OF THE 2ND FE CYLINDER 
DRVPAR:: .WORD 0 SWHEN EQ TO 1 CHANGE DRIVE PARAMETERS 
OPTION:: .WORD 0 SOPTIONS; O=FORMAT, 1=VERIFY, 2=SCAN, wi MODIFY, 

: Geist. "gua lie FE=2 AND 6=H 

FORMT:: .WORD 0 [FORMAT OPTION; ENABLED= 1, DISABLED= os 
NOWRCK:: .WORD 0 ‘USED TO INHIBIT WRITE CHECK COMMAND 
VRIFY:: .WORD 0 [VERIFY OPTION; ENABLED= 1, DISABLED= 0 
SCANR:: .WORD 0 [SCAN OPTION; ENABLED= 1, DISABLED= 0 
ENWITTD:: .WORD 0 [USED TO ENABLE WRITE TD OPTION AFTER PACK SCAN 
ODTD:: .WORD 0 [MODIFY OPTION; ENABLED= 1, DISABLED= 0 
MODBY:: .WORD 0 ‘MODIFY TD BY; O=WORDS, 1=INDEX, 2=CHANGE 
LIST:: .WORD 0 SLIST OPTION; ENABLED= 1, DISABLED= 0 
LISHDR:: .WORD 0 SUSED TO LIST HEADER INFO IN DEFECT SECTORS 
MINCYL:: .WORD 0 SUSED TO DETERMINE MIN CYLINDER OF OPERATION 
MAXCYL:: .WORD 630. [USED TO DETERMINE MAX CYLINDER OF OPERATION 
MINTRK:: .WORD 0 [USED TO DETERMINE MIN TRACK OF OPERATION 
MAXTRK:: .WORD 31, [USED TO DETERMINE MAX TRACK OF OPERATION 
TEMPA:: .WORD 0 USED FOR SOFTWARE CALCULATIONS 
ENDCYL:: .WORD 630 DEFAULT CYLINDER MAX ON RIVE 
ENDTRK:: .WORD 31. HIGHEST RPO7 TRACK ADDRESS 
ERRMAX:: .WORD 5 tUSED TO CONTROL MAX ERRORS 
ENDPTR:: .WORD 50.¢ SUSED TO CREATE BUFFER BOUNDARIES 
ENDTAB:: .WORD 0 [USED TO MARK BUFFER BOUNDA 
BADDR:: .WORD 0 : CONTAIN US ADDR FOR DRIVER 
LASLOC:: .WORD DEFBUF USED TO LINK BUFFER TO BUYEERY TRANSFERS 
CEMODE:: .BYTE 0 sMODE CONTROL FOR CE CYLINDER 
FIRPAS:: .BYTE 0 [USED TO CONTROL SCANNER ITERATIONS 
SCANIT:: .BYTE 0 :#@ OF SCAN ITERATIONS DURING A SCAN OPERAT!ON 
INTLEV:: .BYTE 0 SINTERLEAVE MODE INDICAT 
SAMSEC:: .BYTE 0 :# DEFECTS IN CURRENT SECT Tor 
NOROOM: : “BYTE 0 [USED WHEN THE BAD SECTOR FILE IS FULL 
SUPRSS:: .WORD 0 SCONTROL USED TO SUPRESS ERROR MESSAGES 
DESTRK:: .WORD 0 [DESIRED TRACK ADDRESS (IN UPPER BYT 
DEFCNT:: .WORD 0 [USED TO TRACK THE HDA DEFECT COUNT 
NEWCNT:: .WORP 0 [USED TO TRACK NEWLY FOUND DEFECTS 
TBLPTR:: . 0 TUSED TO FEED AN ADDRESS TO ‘GETNEX 
ERRFNC:: .WORD 0 SUSED TO STOR E t — FUNCTION AT TIME OF FAILURE 
SOFSW:: .WORD 0 [USED FOR SOFTWARE SCRATCH 


om 


ECTION 
63 002260 000000 
6 v0ze62 900000 
65 002264 000000 
66 002266 000000 
67 002279 900000 
68 002272 000000 
69 002274 000000 
70 002876 000000 
71 002300 000000 
7 002502 900000 
73 CGe50" 000000 
75 002306 ©=-961 
ti, 002307 O31 
78 002312 002142 
79 002314 000006 
80 002316 000110 
81 002520 000045 

é 
83 

84 

85 

36 
87 

88 
89 002322 000010 
90 002324 000040 
91 002326 000022 
92 002330 000336 
93 002332 000022 
9% 002554 000045 
96 
97 
98 
99 

100 

101 

102 

103 002336 000166 

104 002340 000243 

105 002342 000231 

106 

107 

108 002344 000000 

109 002346 000000 

110 002350 000454 

111 002352 0Cy000 

112 002354 000000 

113 002356 000000 

114 002360 000000 

115 002362 000000 

116 002364 000000 

117 002366 000000 
118 002370 000000 
119 002372 000000 


000 
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ERTTL:: .WORD 0 CONTAINS THE TOTAL # OF ERRORS DETECTED 
ERRTTL:: .WORD OQ 3 CON TAINS THE TOTAL # OF DEVICE RETRIES 
ERRMSK:: .WORD 0Q R_MASK 
RTYCNT:: .WORD 0 FUSED TO MAINTAIN THE RETRY COUNTER 
EXPCTD:: .WORD 0 SUSED TO IDENTIFY EXPECTED DATA 
RECVED:: .WORD 0 : TO IDENTIFY RECEIVED DATA 
DEFI::  .WORD 0 sACCUMULATOR FOR TRACKS WITH ONE DEFECT 
pergie WORD 0Q SACCUMULATOR FOR TRACKW WITH TWO DEFECTS 
DEF3::  .WORD 0 CCUMULATOR FOR TRACKS WITH THREE DEFECTS 
DEF4::  .WORD 0 ACCUMULATOR FOR TRACKS Witt FOUR DEFECTS 
DESCYL:: .WORD 0 SDESIRED CYLINDER ADDRESS 
SEC50:: .BYTE 49. 350 SECTORS (0-49.) 
PLTRK:: a tS 25.,0 : INTERLEAVED FILE For 16-BIT FORMAT 
PATTRN:: .WORD BGNPAT sPOINTER TO BEGINNING OF DATA PATTERNS 
TDBCNT:: .WORD 6 1D BYTE COUNT 
TDVALU:: .WORD G1+*TD GAP 1 + TD CONSTANT 

WORD G2 :GAP 2 CONSTANT 


FE Ba hadadadedaaableaaahababeladededebebebel tetas elebabetelohete headed babel 
: THE FOLLOWING TABLE REPRESENTS THE VARIOUS PARTITIONS WITHIN A SECTOR i OR AN 
: RPO7. (IN 16 BIT MODE) THE TABLE STRUCTURE MUST NOT BE ALTERED IN ANYWAY. 


>>>DO0 NOT DISTURB THE FOLLOWING TABLE UNDER ANY CIRCUMSTANCE S<<< 
PARTBL:: .WORD HDR sSECTOR HEADER, 
ORD 3 GAP 


. 3 

-WORD MSEG ZLEADING MIN, DATA SEGMENT, 
-WORD 222. srote FIELD SEGMENT, 

- WORD + Ly ua MIN. DATA SEGMENT, 


2% ee er ae 
; THE TWO TD LIMIT WORDS, "TDLMTS*® AND ‘TDLMTS+#2° ARE REFERENCED FROM 

: INDEX TO THE CENTER OF THE FIRST DEFECT SKIP (DS1). WHILE THE TD LIMIT 

; WORD ‘TDLMTS+4° IS REFERENCED FROM THE CENTER OF THE FIRST DEFECT SKIP (DS1) 
; TO THE CENTER OF THE SECOND DEFECT SKIP (DS2). THESE NUMBERS WILL BE USED 

; og A PROGRAM IS TRYING TO DETERMINE IF A TD AND/OR HDR 0 SHOULD 


TDLMTS:: .WORD G1+<DS/2> 21D MOVED LIMIT 
«WORD G61+1D+G2+<DS/2> HDR 0 ~ ey LIMIT 
«WORD <DS/2>+TD+G2+<DS/2> STD & HDR 0 MOVED LIMIT 


PPT TITITILITITITILITTIIIT TIT TTLLTLITI Ti Tiiitittit titi iti iii i iii 


TEXT:: .WORD OQ sPOINTS TO ADDRESS OF TEXT TO BE es: 

CONTLT:: .WORD 0 ADDRESS OF CONTROL ‘T* SERVICE BUFFER 

TKWCNT:: .WORD 6*50. WORDS FOR TRACK FORMAT (6 WORDS X 50. SECTORS) 
MPi:: . 0 FUSED TO INDENTIFY SCRATCHES 

TEMP2:: .WORD 0 sUSED TO MEASURE SCRATCH LENGTH 

HICYL:: .W 0 ;USED TO MAP THE HI ADDRESS OF A SCRATCH 
CVL:: . 0 ;USED_ TO MAP THE LO ADDRESS OF AS CH 

NEGWRD:: .WORD 0 NEGATED WORD COUNT FOR DRIVER 

ECCWRD:: .WORP OQ sECC_DATA FOR CREATION OF NEW TD 

SECADD:: .WORD OQ sSECTOR ADDRESS OF NEW TD DEFECT 

MN gh : .WORD 0 FUNCTION COMMAND FOR RPO7 DRIVER MODULE 

DEFSEC:: .WORD 0 CONTAINS # OF DEFECTS IN A SECTOR 


on 


L 3 
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120 002374 000000 DEFTRK:: .WORD 8 sCONTAINS # OF DEFECTS ON A TRACK 

121 002376 000000 MINSEG:: .WORD sMINIMUM VALUE FOR A DATA SEGMENT 

1 ¢ 002400 000000 MAXSEG:: .WORD 0 MAXIMUM VALUE FOR A DATA SEGMENT 

\¢? 002402 000000 MORETD:: .WORD 0 sIF EQ 1, THEN MORE TDS TO MODIFY 

158 002404 000000 -WORD 0 USED TO SELECT A UNIT NUMBER 

1¢8 002406 176700 RPADR:: .WORD 176700 CONTAINS RPCS1 BASE ADDRESS 

127 002410 000254 000240 RPVEC:: .WORD £34.9*52. sCONTAINS VECTOR ADDRESS & BR LEVEL 

128 002414 000050 RHEXT:: WORD 0 sCONTAINS RH70 OFFSET TO RPBAE 

4 002416 000000 RHTYPE::.WORD 0 CONTAINS RHXX TYPE; RH11= 0, RH70= 1 

130 002420 000000 DRVNO:: .WORD 0 DRIVE NUMBER 

13) 002422 000000 DRVSN:: .WORD 0 sSTORAGE FOR EACH S/N DIGIT 

135 002424 176700 RPCS1:: .WORD 176700 sBASE ADDRESS USED FOR THE DRIVE 

134 002426 17670 RPWC:: .WORD 176702 sWORD COUNT REGISTER 

135 002430 176704 RPBA:: .WORD 176704 sBYTE ADDRESS REGISTER 

136 002432 17670 RPDA:: .WORD 176706 sDESIRED SECTOR/TRACK ADDRESS 

137 002434 176710 RPCS2:: .WO 176710 sRPO? STATUS REGISTER 

138 002436 176712 RPDS:: .WOR 176712 sRPO7 DRIVE STATUS 

139 002440 176714 RPER1:: .WORD 176714 3RPO7 ERROR REGISTER #1 

140 002442 176716 RPAS:: .WOR 176716 zRPO7 ATTENTION SUMMARY PSEUDO REGISTER 

141 002444 176720 RPLA:: .WORD 176720 sRPO7 LOOK AHEAD REGISTER 

142 002446 176722 RPDB:: .WORD 176722 :RPO7 DATA BUFFER 

143 002450 176724 RPMR1:: .WORD 176724 3RPO7 MAINTENANCE REGISTER #1 

144 002452 176726 PDT:: .WORD 176726 DRIVE TYPE REGISTER 

145 002454 176730 RPSN:: .WORD 176730 :RPO7? SERIAL NUMBER 

146 002456 176732 RPOF:: .WORD 176732 3RPO7 OFFS EGISTER 

147 002460 176734 RPDC:: .WORD 176734 sRPO7 DESIRED CYLINDER 

148 002462 176736 PCC:: .WO 176736 zRPO7 CURRENT CYLINDER 

149 002464 176740 RPER2:: .WORD 176740 zRPO7 ERROR REGISTER #2 

150 002466 176742 RPER3:: .WO 176742 :RPO7 ERROR REGISTER #3 

151 002470 176744 RPECT:: . 176744 :RPO? ERROR=POSITION 

152 002472 176746 RPEC2:: .WORD 176746 zRPO7 ERROR PATTERN 

153 002474 176750 RPBAE:: .WORD 176750 sRH70 REGISTER 

138 002476 176752 RPCS3:: .WORD 176752 sRH70 REGISTER 

136 : STORAGE FOR DEVICE REGISTERS 

Fs 002500 REG:: .BLKW 22. sBUFFER TO SAVE REGISTERS AFTER AN ERROR 

160 002554 DELTA:: .BLKW 4 sBUFFER USED TO STORE DELTA ADJUSTMENTS 

123 002564 CMDQUE:: .BLKW 6 ;USED FOR A COMMAND SEQUENCE QUEUE 


a 3 
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-S8TTL GLOBAL TEXT SECTION 
+4 

4 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

5 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED [N 

§ 3; MORE THAN ONE TEST, 

o 

1? NAMES OF DEVICES SUPPORTED BY PROGRAM 

17 002600 LSDVTYP:: 

002600 122 120 060 eASCIZ /RPO7/ 
EVEN 
18 
24 
$2 : TEST DESCRIPTION 
27 002606 LSDESC:: 
002606 “ASCII /RPO7 FORMAT-VERIF Y=SCANNER/ 

f 
3 ; FORMAT STATEMENTS USED IN PRINT CALLS 
38 j 
39 002642 045 116 000 CRLF:: .ASCIZ /%N/ 
40 002645 045 124 000 FRMTT:: .ASCIZ /2%T/ 
41 002650 045 116 045 FRMTOO:: .ASCIZ /ZNZADRIVE RPCS1 RPWC RPBA RPDA RPCS2 = RPDS/ 
42 002741 045 116 045 FRMTO1:: .ASCIZ /ZNZO6%ZA %06%A X06%A X06%A YO6XA LO6XA %06/ 
43 003021 045 116 045 FRMTO2:: .ASCIZ /%NZARPER1 A RPLA R R1 RPDT RPSN/ 
44 003112 045 114 045 FRMTO3:: .ASCIZ /ZNZO6%A %06%A %06%A %06XA LO6XA YO6XA %06/ 
45 003172 045 "16 045 FRMTO4:: .ASCIZ /ZNZARPOF RPCC RPER2 RPER3 RPEC1 RPEC2/ 
46 003264 045 116 045 FRMTOS:: .ASCIZ /ZNZO6%A %O6%A %06%A X06%A YLO6XA %06%A O6EN/ 
47 003346 045 101 122 FRMTO6:: .ASCIZ /ZARPBAE RPCS3/ 
re | 003366 045 116 045 FRMTO7:: .ASCIZ /2NZ06%A %06%N/ 
50 003405 045 116 045 FRMT10:: .ASCIZ /ZNZADRIVE %01/ 
51 003423 045 116 045 FRMT11:: .ASCIZ /ZNZADONE, RETRIES MADE= %D5%A., ERRORS DETECTED= %D5%A.%N/ 
52 003516 045 101 124 FRMT12:: .ASCIZ /ZATRACKS WITH XD1%A DEFECTS= %D5%A. 2N/ 

53 003564 045 116 045 FRMT13:: .ASCIZ /ZNZATOTAL DEFECTS FOUND= %D5%A./ 

54 003624 045 104 065 FRMT14:: .ASCIZ /ZD5%A. / 
55 003635 045 117 066 FRMT15:: .ASCIZ /Z06%A / , 
56 003645 045 116 045 FRMT16:: .ASCIZ /ZNZADRIVE WORD#1 WORD#2 WORD#3 WORD#4 WORD#S WORDS6/ 
of 003740 045 116 045 FRMT17:: .ASCIZ /ZNZXO6%ZA %06%A %06%A %06%A £06%A XO6%A %06/ 
59 004020 045 116 045 FRMT20:: .ASCIZ /ZNZACYL:2D3%A. TRK:%D2%A. / 
60 004054 045 101 122 FRMT21:: .ASCIZ /ZARETRIES MADE= 2D52%A./ 
61 004103 045 101 120 pat gers eASCIZ /%APRSNT FUNCT: %T/ 
62 004125 045 124 045 FRMT23:: .ASCIZ /ZTXA %06%A %06/ 
6; 004146 045 116 045 FRMT24:: .ASCIZ /ZNZATYPE <CR> TO INPUT (0=140000) DATA:/ 
65 004216 045 101 054 FRMT30:: .ASCIZ /%A, NON-INTERLEAVED2N/ 
66 004244 045 101 054 FRMT31:: .ASCIZ /2A, INTERLEAVED2ZN/ 
67 004266 045 116 045 FRMT32:: .ASCIZ /ZNZANEW DEFECT(S) CURING SCAN ITERATION ZD3%A., TD(S) FOLLOW:/ 
68 004364 045 116 045 FRMT35:: .ASCIZ /ZNZAEXPCTD:%062A RECVED:%06/ 

69 004421 045 116 045 FRMT35:: .ASCIZ /ZNZAWORD#1 ( CYL) WORDM2 (TRK)(SEC) WORD#@3 WORD#4 WORD#S WORD#S6%N/ 
70 004530 045 117 066 FRMT36:: .ASCIZ /ZO6%ZA (ZD3%A.) %O6XA (A2D2%A.)(4ZO3ZA) / 


SEQ 0039 
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134 006725 125 116 105 EM7:: .ASCIZ /UNEXPECTED ATTN OCCURRED/ 

135 006756 127 \¢6 111 EM10:: .ASCIZ /WRITE CHECK ERROR SET/ 

136 007004 106 1] \¢¢ EM11:: .ASCIZ /FORMAT VERIFY ERROR/ 

137 007030 104 $8 131 png?! eASCIZ /DRY DION'T RESET WHEN EXPECTED/ 

138 007067 124 \s 101 EM13:: .ASCIZ /TRANSFER ERROR SET/ 

139 007112 123 120 105 EM14:: .ASCIZ /SPECIAL CONDITION SET/ 

140 007140 000 EM15:: .ASCIZ // NOT USED 
141 007141 103 117 125 EM16:: .ASCIZ /COULD NOT SUPPLY READABLE TD THRU RELOCATION/ 
136 007216 125 116 Ve2 EMI17:: .ASCiZ /UNRECOVERABLE ERROR DURING PACK SCAN/ 

144 porate 122 101 116 Enso: ~ASCIZ /RANDOM WRT CHK ERRORS =CAN'T RESOLVE DEFECTS=-/ 
145 007341 116 117 116 EM21:: .ASCIZ /NON-EXISTENT DRIVE/ 

146 007364 104 122 111 EM22:: .ASCIZ /DRIVE NOT AN RPO7/ 

147 ~EVEN 

151 

162 


C 
CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:46 PA 1 1 
GLOBAL ERROR REPORT SECTION 22 GE 15 SEQ 004 


.SBTTL GLOBAL ERROR REPORT SECTION 
4 ; "THE SL OBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
5 : THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
$ ; THAT ARE USED BY THE PRINIB AND PRINTX CALLS.. 
5 a 
10 bores 004737 010472 mene ae kt REPORT THE ADDRESS OF THE FAILURE 
TYPL ; H Lu 
\° 007412 004737 010556 JSR PC ,DMPREG 4 ta ERROR REGISTERS 
ig 007416 012746 002642 MOV @CRLF ,<(SP) ; 
007422 012746 000001 “MOV #i,-(§P) 
007426 010600 MOV SP,RO 
007430 104414 TRAP  CE$PNTB 
007432 062706 000004 ADD #4,SP 
14 007436 110002: 
- 007436 104423 TRAP — C$MSG 
16 007440 ERR1:: 
17 007440 004737 010472 JSR PC, TYPLOC ;REPORT THE ADDRESS OF THE FAILURE 
18 SPRINT "EXPCTD: XXXXXM MXMXKK® 
19 007444 013746 030216 MOV TDCPY2,=(SP) 
007450 01 030214 MOV TDCPY1.=(SP) 
007454 012746 005612 MOV #EXPTD. =(SP) 
007460 012746 004125 MOV #FRMT2$,=(SP) 
007464 012746 000004 MOV #4,-(SP 
007470 010600 MOV 
07472 104414 TRAP  C$PNTB 
007474 062706 000012 ADD #12,SP 
20 SPRINT “RECVED: XXXMKX MXXKXK® 
21 007500 013746 030202 MoV TDWRD2,-(SP) 
007504 013746 030200 MOV TDWRD1.=(SP) 
07510 012746 005625 MOV #RCVED.=(SP) 
007514 012746 004125 MOV #FRMT23,-(SP) 
007520 012746 000004 MOV #4,-(SP 
007524 010600 MOV SP. 
007526 104414 TRAP  C$PNTB 
007530 062706 000012 ADD #12,S5P 
22 007534 004737 010556 JSR PC, DMPREG :DUMP, THE ERROR REGISTERS 
24 097540 012746 002642 MOV #CRLF =(SP) 
907544 012746 000001 MOV #1,-(S§P) 
007550 010600 MOV SP.RO 
007552 104414 TRAP  C$PNTB 
007554 062706 000004 ADD #4,SP 
25 007560 110003: 
2 007560 104423 TRAP  CSMSG 
27 007562 ERR2:: 
28 007562 004737 010472 JSR PC, TYPLOC sREPORT THE ADDRESS OF THE FAILURE 
29 ‘PRINT "DRIVE WORD#1 WORD#2 WORD#3 WORD#4 WORD#S WORDS6' 
30 007566 012746 003645 MOV #FRMT16,-(SP) 
007572 012746 000001 MOV #1,-(SP5 
007576 010600 MOV SP.RO 
007600 104414 TRAP  C$PNTB 


CZRJKAO RPO? FMTR/SCANNER MACRO V04.00 1 
GLOBAL ERROR REPORT SECT 


007602 
31 00760 


32 007656 
33 007662 
007666 


36 007704 
14 007704 


39 007710 
007714 


41 
42 007732 
oF 007732 


45 007736 
007742 


097762 
46 007766 
47 

48 007772 


0153746 


004737 
012746 


062706 
104423 


004737 


o 
= 
wm 
~ 
= 
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374 
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COOOOOCOCOCoCoOoO = 
COOOWWWIWA AIO 
OWNOOOCCOOCO 2 
SONS PPNPINININO 
el ed dd ee 
SOoOCONVFSFoOonrvs 


000022 


002642 
000001 


000004 


010472 


002642 
000001 


000004 


010472 
002272 


-JAN@-83 12:22:44 PAGE 15-1 . 


L10004: 


ERR3:: 


L10005: 


ERRS:: 


L10006: 


#CRLF ,=(SP) 
#1,-(SP) 
SP,RO 
CSPNTB 

#4 ,SP 


C$’ 45 


P iYPLOC 


#CRLF ,-(SP) 
#1,-(SP) 


SP,RO 
CSPNTB 
#4 ,SP 
C$MS6 


PC, TYPLULC 
pestis cate 


#i0,SP 

PC,DMPREG 

CRLF ,-(SP) 
1 ) 


SP,RO 
CSPNTB 


C$MSG 


3s CRLF 


;REPORT THE ADDRESS OF THE FAILURE 
SPRINT "EXPCTD: XXXXXX RECVED: XXXXKK® 


:REPORT THE ADDRESS OF THE FAILURE 
SCR=L 


;DUMP THE ERROR REGISTERS 
;CR=LF 


SEQ 0042 


4 
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GLOBAL SUBROUTINES SECTION 


1 -S8TTL GLOBAL SUBROUTINES SECTION 
£59 REGISTERS FOR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR 
5 
§ * JSR PC,SIZE70 ;CALL ROUTINE 
4 RS MUST CONTAIN POINTER TO NEW RPCS1 BASE ADDRESS 
11 010014 005037 002414 SIZE70: CLR RHE XT ;CLEAR RPBAE OFFSET 
12 010020 005037 002416 CLR RHTYPE [CLEAR RHXX TYPE REGISTER (RH11) 
13 010024 013746 000004 MOV ERRVEC,-(SP) i SAVE CONTENTS OF ERROR VECTOR 
14 010030 012737 010100 600004 MOV #2$, ERRVEC SET UP ‘TRAP* RETURN ADDRESS 
15 010036 011500 MOV (R5),RO GET RPCS1 ADDRESS 
16 010040 062700 000050 ADD #50,R :GET REGISTER OFFSET FOR RH70 
17 010044 012702 000012 MOV #10.,R2 iGET a a REGIST ERS TO CHECK 
18 010050 005720 TST (RO)+ AP IF NOT A VALID R ote ri 
19 010052 005720 TST (RO)+ < TRAP IF NOT A VALID R 
20 010054 012737 000050 002414 MOV #50,RHEXT iLOAD OFFSET FOR RPBAE ree REGISTER RH) 
21 010062 005720 1$: TST (RO) + P IF NOT A VALID REGISTER 
22 010064 005302 DEC R2 S OONE WITH ALL 32 REGISTERS ? 
235 010066 001375 BNE 1$ ‘BR IF NO 
24 010070 012737 000074 002414 MOV #74, RHEXT ‘LOAD OFFSET FOR RPBAE (32 REGISTER RH) 
25 010076 000403 BR 3$ 
26 010100 012716 010106 2$: MOV #3$,(SP) ;SETUP RETURN ADDRESS 
sf 010104 000002 RT] 
29 010106 011500 3$: MOV (RS),RO ;GET RPCS1 REGISTER 
30 010110 013702 002414 MOV RHEXT,R2 ;GET RPBAE REGISTER OFFSET 
31 010114 001415 BEQ 4% BR IF NONE 
32 010116 060002 ADD RO,R2 GET RPBAE REGISTER 
33 010120 052710 001400 BIS #A17'A16, (RO) SET EXTENDED ADDRESS BITS IN RPCS1 
34 010124 022712 000003 CMP #3, (R2) ARE THE EXTENDED BITS SET IN RPBAE ? 
35 010130 001007 BNE ‘BR IF NO 
36 010132 005012 CLR (R2) Ct EAR EXTENDED ADDRESS BITS IN RPBAE 
37 010134 011046 MOV (RO) ,-(SP) AVE RPCS1 REG CONTENTS 
38 010136 042726 176377 BIC #*C<A17!Al6>, (spss sARE THE EXTEND BITS CLEAR IN RPCS1 ? 
39 010142 001002 BNE <s :BR IF NO 
40 010144 005237 002416 INC YPE SET RHXX TYPE REGISTER (RH70) 
41 010150 012637 000004 4$: MOV CSP) ¢ ERRVEC SRESTORE CONTENTS OF ERROR VECTOR 
42 010154 000207 RTS PC 
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C 
DISK DRIVER 
-SBTTL DISK DRIVER 


APICES PPP iii tii iii iirc ii ii iti t ii iii titi ii it iii tity 
THE *READY' ROTUINE LOOKS AT ee EM 4. RPDS TO DETERMINE DRIVE READY STATUS 
SAND 1S CALLED FROM THE "DRIVER UTINE. 

THE ‘DRIVER’ ag HE a SENDS THE COMMAND TO THE CONTROLLER AND IS CALLED BY: THE 
;READ/WRITE FUNCTIONS. 

+ (INPUTS AND OUTPUTS ARE FOR ‘DRIVER® MODULE) 


4 

5 

6 

7 

5 
19 INPUTS ARE: NEGURD, DESCYL, DESTRK, BADDR, FUNCTN, RPDS, NOWRCK, 
1 : 
ig sNEGWRD = WORD COUNT TO BE NEGATED. (GETS NEGATED IN DRIVER) 
14 DESCYL = DESIRED CYLINDER ADDRESS 

15 :DESTRK = DES RE TRACK SECTOR ADDRESS. 

16 ;BADDR = BUS ADDRESS FOR DATA TRANSFERS. 

4 sFUNCTN = COMMAND (FUNCTION) TO BE EXECUTED. 
ss ‘OUTPUTS ARE: RPWC, RPDA, RPCS1, RPBA, ERRMSK 

*@ 

21 CALL 
22 : JSR PC,DRIVER SEND COMMAWD TO CONTROLLER 
23 FA AAAAAAAAAAHE ETAT EAEA HAHAHAHAHAHA HEKAHRARREREHHAHERERERHATeteneneetenerere 
24 
25 010156 105777 172254 READY: TSTB @RPDS z1S DRIVE READY SET ? 
26 010%62 100375 BPL READY :BR IF NO 
$f 840164 000207 RTS PC 
29 010166 005037 002264 DRIVER: CLR ERRMSK RESET NO ERROR STATUS 
30 010172 005437 002362 NEG NEGWRD NEGATE THE WORD COUNT ONLY ONCE! 
31 010176 032777 040000 172232 1$: BIT #ERR, RPDS O WE HAVE A COMPOSITE ERROR? 
32 010204 001404 BEQ 2$ NO. SO SKIP NEXT 
33 010206 012737 000002 002264 MOV #2 .ERRMSK ‘L0G COMPOSITE ERROR’ STATUS 
4 010214 000510 BR 8$ zAND RETU 
36 010216 004737 010156 28: JSR PC READY zWAIT FOR DRIVE READY 
37 010222 013777 002362 172176 MOV NEGWRD, @RPwC WORD COUNT ===> RP REGISTER 
38 010230 013777 002304 172222 MOV DESCYL.a@RPDC iGET THE CYLINDER ADDRESS TO THE DEVICE REGISTER 
39 010236 013777 002244 172166 MOV DESTRK,@RPDA sTRACK/SEC ===> RP REGISTER 
40 010244 013777 002230 172156 MOV BADDR, aRPBA ;LOAD THE BUS ADDRESS REGISTER 
41 010252 042777 100000 172170 BIC #DMD,aRPMR1 sASSUME NOT DIAGNOSTIC MODE 
42 010260 023727 002304 001166 CMP DESCYL, #630. FE CYLINDER? 
43 010266 103403 BLO 3$ IF NOT, SKIP wEMT INSTRUCTION 
44 910270 052777 100000 172152 BIS #DMD,aRPMR1 SET DIAGNOst ic 
45 010276 013777 002370 172120 3$ MOV FUNCTN,@RPCS1 GET THE C OR MAND TO EXECUTE 
46 010304 017746 172114 i$ MOV @RPCS1,-(SP) : STATUS 
47 010310 042716 177576 BIC #*C<RDY :G0>, (SP) 
48 010314 022726 000200 CMP #RDY, (SP) + sRDY=1,G0=0 ? 
34 010320 001371 BNE 4$ :BR IF NO 
4 FUNCTION COMPLETE, LOOK FOR ERRORS 
53 010322 032777 040000 172074 BIT #TRE ,aRPCS1 1S TRE SET ? 

54 010330 001404 BEQ : F NO 

5S 010332 012737 000014 002264 MOV #14, ERRMSK LOG ‘TRANSFER ERROR’ STATUS 
26 010340 000441 BR 9$ 


AD_RPO 
DRIVER 

58 010362 
59 01035 

60 010352 
61 010356 
62 010360 
63 010364 
64 010366 
65 010374 
66 

67 010376 
68 910404 
69 010406 
70 010514 
71 010416 
72 010426 
74 010426 
75 010434 
77 010436 
78 010444 
79 

80 010446 
81 010452 
B2 010454 
83 010462 
84 010464 
85 010470 


OO 0000-0 
Own ~_ NMWONTIUN—TO 
NNONON WNENWNIOWY 


oooooo oOo 9c0O cOoO°oOo 


WANA OW OW 
ANONEN NN WN 


002370 
172060 
172040 
000015 


040000 
040000 
000007 


000006 


000002 


002164 
000063 
011212 


000055 


002264 


172032 
172020 
002264 


002264 


002264 


002370 
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FUNCTN,#DIAG 
SPS 

aRPCS1 

gq vERARSE 


#ERR,@RPDS 
#WCE ,ARPCS2 
#7 ,ERRMSK 
9$ 


#6, ERRMSK 
9$ 
#2, ERRMSK 
PC 


—_— 
#FMTRK,FUNCTN 
PC ,WRITCK 
DRIVER 


:WAS IT A “HOUSEKEEP" COMMAND ? 

:D10 WE GET AN UNEXPECTED ATA ? 

ils SPECIAL CONDITION SET ? 

[LOG "SPECIAL CONDITION ERROR® STATUS 


DID WE GET A COMPOSITE ERROR? 
[1S WCE SET ? 

$ F NO 

[LOG "WRITE CHECK ERROR® STATUS 


3LOG ‘UNEXPECTED ATTENTION ERROR’ STATUS 
;LOG ‘COMPOSITE ERROR’ STATUS 
sEXIT 


; INHIBIT WRITE CHECK OPERATION ? 
[WAS THIS LAST FUNCTION A FORMAT TRACK ? 
[DO THE WRITE=CHECK OPERATION 


SEQ 0045 


H & 
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1 
§ *SQRReeeeeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeaateaketeaateaeeeeeeneeteeeeeaeaeeneeeee 
ituis MODULE IS USED BY THE ERROR REPORTING SECTION OF THE PROGRAM. THE 
é PURPOSE OF THIS MODULE IS TO REPORT THE FUNCTION IN PROCESS AT THE TIME OF 
2 ;FAILURE, THE TRACK AND CYLINDER IN PROCESS AT THE TIME OF THE FAILURE. 
, j INPUTS ARE: ERRFNC, DESTRK*1, DESCYL 
R output 1S USER CONSUMABLE. 
11 FALL 
1 ; JSR PC, TYPLOC 
1 b ps, eeeeeereareneerererereererererenaterereneneneeneenenenenenenetenteteneseretes 
14 
15 010472 TYPLOC: ;PRINT “PRSNT FUNCT: * 
16 010472 013746 002254 MOV ERRFNC,=(SP) 
010676 012746 004103 MOV wERMT CS -(SP) 
010502 012746 000002 MOV #2,-( 
010506 010600 MOV SP, RO 
010510 104414 TRAP = CSPNTB 
- 010512 062706 000006 ADD #6,SP 
18 010516 113737 002245 002346 MOVB  DESTRK*1,CONTLT ;GET THE TRACK ADDRESS 
19 sPRINT ‘CYL: TRK: ° 
20 010524 013746 002346 MOV CONTLT,=-(SP) 
010530 013746 002304 MOV DESCYL,-(SP) 
010534 012746 004020 MOV #FRMT20,-(SP) 
010540 012746 000003 MOV #3,-(SP) 
010544 010600 MOV SP,RO 
010546 104414 TRAP CSPNTB 
010550 062706 000010 ADD #10,SP 
4 010554 000207 RTS PC RETURN 
23 settaneereetereeteneeeretenetereneneeeeenatekeeeeneaneeeaeeeenetenenenateterere 
24 ituts MODULE IS USED BY THE ERROR REPORTING SECTION OF THE PROGRAM, IT 
35 : PRODUCES A REGISTER SNAPSHOT OF THE RHXX REGISTERS SUBSEQUENT TO A DETECTABLE 
27 ie 
38 ; INPUTS ARE: FROM REG = REG+52 
30 3 THE OUTPUT IS USER CONSUMABLE. 
32 :CALL 
33 JSR PC ,.DMPREG 
34 peeeeeentenenenenerenereteeeeeeneneneneneeeeeeeneeeeeereneereerereeeererereere 
35 
36 010556 DMPREG: sPRINT “DRIVE RPCS1 RPwC RPBA RPDA RPCS2 RPDS* 
37 010556 012746 002650 MOV #FRMTO0,-(SP) 
010562 012746 000001 MOV #1,-(SP5 
010566 010600 MOV SP-R 
010570 104415 TRAP — CSPNTX 
010572 962706 000004 ADD #4, 
38 010576 013746 002512 MOV REG+12,-(SP) 
010602 013746 002510 MOV REG*+10,-(SP) 
010606 013746 002506 MOV REG*6,-(SP) 
010612 013746 002504 MOV REG*4,=(SP) 
010616 013746 002502 MOV REG*2,-(SP) 


‘4 
CZRJKAO RPO? FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 18-1 SEQ 0047 
DISK DRIVER 

010622 013746 002500 MOV REG, =(SP) 

010626 013746 002420 MOV DRVNO, =(SP) 

010632 012746 002741 MOV #FRMTO1,=(SP) 

010636 012746 000010 MOV #10,- 

010642 010600 MO SPR 

010644 104415 TRAP CSPNTX 

010646 062706 000022 A #22,SP 
39 sPRINT "RPER1 RPAS RPLA RPDB RPMR1 RPDT RPSN’ 
40 010652 012746 003021 MOV #FRMTO2,<(SP) 

010656 012746 000001 MOV #1,<(SP5 

010662 010600 MOV SP-RO 

010664 104415 TRAP = CSPNTX 

010666 962706 000004 ADD #4,SP 
41 010672 013746 002530 MOV REG+30,-(SP) 

010676 013746 002526 MOV REG*+26,-(SP) 

010702 013746 002524 MOV REG+24.=(SP) 

010706 013746 002522 MOV REG+22,-(5P) 

010712 013746 002520 MOV REG+20,-(SP) 

010716 013746 002516 MOV REG+16,=(SP) 

010722 013746 002514 MOV REG+14_=(SP) 

010726 012746 003112 MOV #FRMT0$,-(SP) 

010732 012746 000010 MOV #10,-(5P 

010736 010600 MOV SP,RO 

010740 104415 TRAP CSPNTX 

010742 062706 000022 ADD #22,SP 
42 sPRINT “RPOF RPDC RPCC RPER2 RPER3 RPEC1 RPEC2° 
43 010746 012746 003172 MOV #FRMTOS,<(SP) 

010752 012746 000001 MOV #1,-(SP) 

010756 010600 MOV 0 

010760 104415 TRAP  C$PNTX 

016762 062706 000094 ADD p 
44 010766 013746 002546 MOV REG#+46,=(SP) 

010772 013746 002544 MOV REG+44.=(5P) 

010776 013746 002542 MOV REG+42,-(SP) 

011002 013746 002540 MOV REG+40,-(SP) 

011006 013746 002536 MOV REG+36,-(5P) 

011012 013746 002534 MOV REG+34.-(SP) 

011016 013746 002532 MOV REG*+32.=(SP) 

011022 012746 003264 MOV #FRMTOS ,-(SP) 

011026 012746 000010 MOV #10,-(SP) 

011032 010600 MOV SP,RO 

011034 104415 TRAP CSPNTX 
ss 011036 062706 000022 ADD #22,SP 
46 011042 005737 002416 TST RHTYPE :1S IT RH70 CONTROLLER ? 
47 011046 001424 BEQ 1$ :B 
48 :PRINT ‘RPBAE RPCS3° 
49 011050 012746 003346 MOV #FRMTO6,-(SP) 

011054 012746 000001 MOV #1,-(SP) 

011060 010600 MOV 

011062 104415 TRAP CSPNTX 

011064 062706 000004 ADD #4,SP 
50 011070 013746 002552 MOV REG*52,-(SP) 

011074 013746 00255 MOV REG+50.=(SP) 

011100 012746 003366 MOV #FRMTO?,-(SP) 

011104 012746 000003 MOV #3,-(SP) 

011110 010600 MOV SP.RO 


DISK D 


1$: 


Stes Res FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 18-2” 


TRAP CSPNT 
ADD #10,S 
RTS PC 


RETURN 


SEQ 0048 


mea 
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1 
MARRBRBREBLAARAASALALALAALALELASLELEE RE RRR EEE EEE ERE EERE EEE ES ER EEE EEE EE EEE TERRE RSS SG 
g ‘THIS MODULE IS USED TO LOG pata INTO THE BAD SECTOR FILE. THIS DATA IS PuT 
: : INTO THE BSF BECAUSE IT WON'T FIT INTO THE TD FOR AN EXISTING TRACK. 
$ INPUTS ARE: on TMPBSF, TMPBSF+2 
8 sOUTPUTS ARE: TO A BUFFER CALLED ‘USRBUF* (OUTPUT IS CONTROLLED BY "NOROOM', 
16 3 INDICATING THAT THE BSF IS ALREADY FULL) 
*@ 

11 CALL 
ig PC,LODBSF CALL ROUTINE 
1 ITITITITIIIIIIIIIITITT IIIT ITI TTT titi iti tit tiittiiiitittils 
14 
15 011122 005737 002172 LODBSF: TST ENWTTD 31S WRITE TD(S) ENABLED ? 
16 011128 001430 BEQ 3BR I 
17 011130 105737 002241 TSTB NOROOM ANY ROOM IN THE USR BSF ? 
18 011136 100425 BMI ‘BR I 
19 011136 020227 032246 CMP R2,#ENDUSR 315 USR yBsF BUFFER FULL ? 
20 011142 101005 BHI 1$ :BR if 
21 011144 013722 030244 MOV TMPBSF , (R2)+ 3L0G T HE'b 
22 011150 013722 030246 MOV TMPBSE 2. (R2)+ soe ONDER TRACE /SECT OR 
$2 011154 000415 BR 2$ ‘AND FOR NOW, TAKE THE RETURN 
25 011156 112737 177777 002241 1$: MOVB #-1,NOROOM ;MARK NO ROOM IN BAD SECTOR FILE 
26 :PRINT "es WARNING ** USR BAD SECTOR FILE 
27 : BUFFER IS FULL NOW’ 
28 011164 012746 006016 MOV #WARN,-(SP) 

011170 012746 005237 MOV #FRMT63,-(SP) 

011174 012746 000002 MOV #2,-(SP) 

011200 010600 MOV SP,RO 

011202 104417 TRAP CSPNTF 

011204 062706 000006 ADD #6,SP 
29 911210 000207 2$: RTS PC RETURN TO THE CALLER 
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L 4 
SEQ 0050 
-SBTTL WRITE BUFFER POSTFIX MODULE 


ad uasehit Guataans tad Eegtan fants icaes uae oe uaanaeen tae 
iTHIS MODULE oer bens THE BUFFER POSTFIXING WHEN AN INTERLEAVED FOR 
SOPERATION WAS PERFORMED. THE WRITE CHECK OPERATION IS PERFORMED in” A LINEAR 
; FASHION, IE: SECTOR (N), SECTOR (N*1), SECTOR (N*2), SECTOR (N+...). 


j INPUTS ARE: INTLEV, LINBUF, WCKHD, WCKHDR, TKWCNT 
jourPUTS ARE:  BADDR, FINCTN, ERRFNC, RPOF, NEGWRD 
iTMls ROUTINE IS CALLED FROM THE ‘DRIVER’. 


SPAR AAE AAA AAAAAAEA AAA AEHAAAAEAEAAAAAAAARHAAAERHARKAREAEKAHAKeeHeteeeReeKeneees 


WRITCK: tse iyrey ZINTERLEAVE MODE ? 
JSR HABUF tRE-SHUFFLE INTERLEAVED DATA AND 
MOV PL INBUF CBADOR GET yPOINTER TO BEGINNING OF MINE AR BUFFER 
1$: MOV WWCKHD,FUNCTN SETUP A WRITE=CHECK HEADERS rOPERAT 10N 
MOV #UCKHDR ZERRFNC SSAVE FUNCTION FOR ERROR ROUTINE 
BIS #CMOD , aRPOF iSET COMMAND MODIFIER BIT 
MOV TKUCNTS NEGWRD D SET TRACK WORD COUNT (6 WRDS X 50. SECTORS) 
RTS PC ‘NOW TAKE THE RETURN 


ARAAALALAARELASAAAAARLLAASE SESE LEE ESE SEER REE RSE R EERE EERE REECE REESE ERE RE REE SS 


iTHIS MODULE DOES THE BUFFER CHANGING WHEN A WRITE=CHECK OR READ HEADER & DATA 
: OPERATION IS REQUIRED ON A DRIVE WHICH WAS FORMATTED IN INTERLEAVED MOD 
yy WRITE CHECK AND READ HEADER & DATA cums 1108 ARE orton wi IN . LINEAR 


ASHION, IE: SECT 


OR (N), SECTOR (N+1), 


SECTOR (N+2) 


E 
EREGARDLESS OF WHETHER THE DRIVE IS IN INTERLEAVED OR NON-INTERLEAVED MODE. 


j INPUTS ARE: 


SouTPUTS ARE: 
°f 


HDRBLK 
LINBUF 


[THIS MODULE IS CALLED BY: WRITCK, VERIFY 


FFARR AAAAAAAAAAAA AAR AERA EAA AAAAAAAAAEHREAAREARRAAAAAAAAAARAKAKAAAAAeeRATe 


CHABUF : 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV R2,-(SP) [PUSH R2 ON STACK 
MOV R3.-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) ::PUSH R4 ON STACK 
MOV R5,-(SP) ::PUSH RS ON STACK 
MOV #HORBLK,R1 :GET POINTER TO BEGINNING OF INTERLEAVED DATA 
MOV #LINBUF ,R2 [GET POINTER TO BEGINNING OF LINEAR BUFFER 
MOV : tAND DO FOR 2 ITERATIONS 
1$ MOVB SEC5O,R5 ‘GET THE # OF SECTORS 
INC R5 3+1 
ASR R5 SAND DIVIDE BY 2 
2$: MOV #6, RG :# OF WORDS/SECTOR 
3$: MOV (R1)+,(R2)¢ ‘LOG THE DATA 
DEC R4 sREDUCE # OF REMAINING WORDS 
BGT 3$ > 0, DO AGAIN 
ADD #12.,R1 ‘SKIP A SECTOR 
DEC R5 : LESS SECTOR TO DO 
BGT 2$ ; 0, KEEP ON GOING 


SEQ 0051 


M 
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CZRJ 
WRITE BUFFER POSTFIX MODULE 


R SECOND PASS 


F BUFFER 


OoOaqaaaaana 
-—~w GOoOoOor- 
muwuOOOaaow 
pho Te ee ee ed? 4 

bl 


wonrwoowwswo 
TMMMMNOOOO 
PAAR 
Ch ee eek ee coe cel eel eel el 
CC ee 


foe lo lo lololololo) 


MTnwo ~ 
mn wn 


Do 


—_s — —_ 3 td ed 
Wr —OOOnNCUSWN— 


wis 
NOE WOO 


—_—— 
~nOo 


—_—— 
coo 
SCOCOOCSO COOO OOOCOCOCOCOCOO COOOCOoOOCOoOSO SCOOCOOOOCOOOoOO COCO 
CONN AOU NMS SLSWW WWwwrnnrn—— $= =2° 


24242868 aad sdaiwtaiaiaaatad aaotiataiaidtaatad adaiaaaadiababah adadad 
MONMAO HSMOHL HKLMOGLNMOEOHL HLMNMOGLNVOEL HLVOO 


MOTB BEES HLKLLLLLLE SELLERS SELLE 


—9 OdONOWSWN-O 
— —> 


WW™—RoRoPONoNNONoN NN 


N 4 | 
R/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 21 SEQ 0052 
TFIX MODULE | 


PPR ititititiii iii iii iii tititiiitiiiiiiiiiiiit 
STHIS MODULE COLLECTS THE USER INPUT TO MODIFY AN EXISTING TRACK DESCRIPTOR IT 
; THEN TAKES THE USER VALUES AND MERGES THEM INTO AN EXISTING OR NEW TD RECORD. 


; INPUTS ARE:  TOCPY3 = TDCPY6, DESCYL, DESTRK, #NULL 
:OUTPUTS ARE: TDCPY3 = TDCPY6é, TDWRD1 = TDWRD6, TEXT, ECCWRD, SECADD 
yt [THIS MODULE IS CALLED BY: MAIN 


Fe TRAE AAAARAAAREAEAAR HOARE AE AA EERE EAEEEEAARARAEEAEREAREREHHERATARHAEKEHHERAeAe Ae 


INPUTD: 
010046 MOV RO,-(SP) :7PUSH RO ON STACK 
010146 MOV R1,=(SP) ::PUSH R1 ON STACK 

:PRINT "MODIFY BY (O=WORDS, 1=INDEX, 2=CHANGE)?° 

104443 TRAP C$GMAN 
000406 R _—«-10000$ 
002176 .WORD MODBY 
000052 .WORD TSCODE 
006334 -WORD M&SG22 
400003 . WORD f 
009000 . WORD $LOLIM 
000002 .WO TSHILIM 

10000$: b 

: *PRINT "CYLINDER ADDRESS (D) 0 ?° 

104443 TRAP C3GhaN 
000406 BR 10001$ 
002304 .WORD DESCYL 
000052 .WORD  TSCODE 
012214 .WORD MESG38 
177777 WORD 177777 
000000 .WORD T$LOLIM 
001166 -WORD TSHILIM 

10001$: 

:PRINT "TRACK ADDRESS (D) 0 ?° 

104443 TRAP CSGMAN 
000406 BR 10002$ 
002244 ~WORD DESTRK 
000052 W TSCODE 
012235 .WORD MESG39 
177400 W 177400 
000000 .WORD TS$LOLIM 
000037 W TSHILIM 

10002$: 
004737 620466 : JSR PC,READTD :CALL THE READ TD SUBROUTINE 
000401 =; i BR 1$ .FRETURN HERE IF EXCEEDED RETRY LIMIT 
000402 BR 2$ SELSE RETURN HERE, NO ERROR 
004737 025112 1$: JSR PC ,DESTD :GET DESIRED TD, BECAUSE WE FAILED THE READ 
012737 005640 002344 2$: MOV #CURENT, TEXT ZLOAD TEXT WITH ADDRESS OF MESSAGE 
004737 JSR PC, TDDUMP :GO DUMP THE TRACK DESCRIPTOR 
023727 002176 000001 3$: CMP MODBY,#1 sMOCIFY BY WORDS, INDEX OR CHANGE MODE ? 
002507 BLT 5$ [BR IF WORDS 
001542 BEQ 6$ >BR I 


; F_ INDEX 
MUST BE CHANGE MODE 


SEQ 0053 
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C2 
WRITE BUFFER POSTFIX MODULE 


WORD #3 
WORD #4 
WORD #5 
D WORD #6 


T 
T 
T 
T 


oe Ot Oe 


L 
L 
t 
;PRINT "TYPE <CR> TO INPUT (0=140000) DATA;* 


;PUT DUMMY NUL 


PUT DUMMY NUL 
sPUT DUMMY NUL 
;PUT DUMMY NUL 
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100108: 


6$: 


10011$: 
7$: J 


8$: 
9$: 


108: 


118: 


MOV 
MOV 
MOV 
BR 
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#TDWRD 
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10$ 
#NULL, 
R1 

9$ 


ERRMAX 
PC, SAV 
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ER MACRO V04.00 1-JAN-83 12:22:44 PAGE 21-2 ; 
MODULE 


IVE 
TOLMTS+#2 


+2,ECCWRD 


M 
M 
T 


3,R0 
-2(R0) 


RO 
€1D 


TID 
TID 


SEQ 0054 


;PRINT "SECTOR ADDRESS (D) ?° 


;PRINT ‘WORD IN SECTOR (D) ?° 


sCALCULATE THE DEFECT VALUE RELATIVE TO INDEX 
SUL CE CLICIING OF DEFECT BE IN GAP 2 ? 


;BR_IF NO 
ph eT LIMIT FOR HDR 0 MOVED AND 


e N 0 2 
zAND GO INSERT IT INTO TD, 
PRINT ‘WORDS FROM INDEX (D) ?° 


sCALCULATE THE DEFECT SKIP AND INSERT THE DATA 
;DO ‘ — ROOM IN THE TD RECORD ? 


:GET POINTER TO BEGINNING OF TD BUFFER 
:# OF DEFECT WORDS IN T 

iis THIS A DUMMY (0) ENTRY ? 

‘MAKE DUMMY (0) ENTRY A NULL (140000) ENIRY 
: DONE ALL WORDS YET ? 


;SETUP_RETRY COUNT 

TSAVE TD WRITE BUFFER JUST INCASE THERE 
[1S RETRY ATTEMPT. 

"NOW RESTORE THE TD BUFFER 

:CALL THE WRITE TD SUBROUTINE 


C2 
wR 


D 
CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 21-3 SEQ 0055 
ITE BUFFER POSTFIX MODULE ‘ 
92 012120 000421 BR 14% SRETURN HERE IF EXCEEDED RETRY LIMIT 
9 == ELSE RETURN HERE, NO ERROR 
94 0321,2 012737 177777 002242 MOV #=1,SUPRSS SSUPRESS THE ERROR MESSAGE OUTPUT 
95 0121355 005300 128: DEC R [DID WE EXCEED RETRY ? 
9 01.152 00¢4 14 BLT 14$ <BR IF YES 
97 gigi 4 00 002 BGT 13$ :BR IF NO 
98 012136 05037 002242 CLR SUPRSS ALLOW ERROR MESSAGE TO BE OUTPUT 
99 012142 00737 020466 13$: JSR PC READTD ‘CALL THE READ 1D SUBROUTINE 
100 012146 000770 BR 12$ SRETURN HERE IF EXCEEDED RETRY LIMIT 
101 TELSE RETURN HERE, NO ERROR 
102 012150 $127 37 006000 002344 MOV #CHANGE glee! SLOAD TEXT WITH ADDRESS OF MESSAGE 
103 012156 004737 015014 JSR PC, TDDU [GO DUMP THE TRACK DESCRIPTOR 
104 012162 000401 BR 15§ 
105 012164 000/63 143%: TST (R5)¢ sADJUST RS TO SKIP FORMAT OTR — RETURN 
106 012146 005037 002242 15$: CLR SUPRSS SALLOW ERROR MESSAGE TO BE OUTP 
107 012172 012601 MOV (SP)*,R1 ::POP STACK INTO 
012174 012600 MOV (SP)+.RO ::POP STACK INTO RO 
108 [PRINT ‘DO VOU WANT TO MODIFY ANYMORE TD'S (L) WN ?° 
109 012176 104443 TRAP  CSGMAN 
012200 000404 B 10012$ 
012202 002402 .WORD MORETD 
012206 000130 “WORD TSCODE 
012206 012402 “WORD MESG47 
012210 000001 * WORD 
012212 100128: 
110 012212 000207 RTS PC STAKE THE RETURN 
115 012214 103 131 114 MESG38: .ASCIZ /CYLINDER ADDRESS/ 
116 012235 124 122 101 MESG39: .ASCIZ /TRACK ADDRESS/ 
117 012253 127 117 122 MESG40: .ASCIZ /WORD IN SECTOR/ 
118 012272 127 417 122 MESG41: .ASCIZ /WORDS FROM INDEX/ 
119 012313 123 105 103 MESG42: .ASCIZ /SECTOR ADDRESS/ 
120 012332 124 104 040 MESG43: .ASCIZ /TD WORDS3/ 
121 012344 124 104 040 MESG44: .ASCIZ /TD WORD#4/ 
122 012356 124 104 040 MESG45: .ASCIZ /TD WORD#S/ 
123 012370 124 104 040 MESG46: .ASCIZ /TD WORDS 
124 012402 104 117 040 MESG47: .ASCIZ /DO YOU WANT TO MODIFY ANYMORE TD°S/ 
126 .EVEN 


me 
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PROGRAM UTILITIES 


WEEE EEE EE EB WAWANNANINIAIPPONPNPINPNINNDYD 2 3 OO es 
NO FE WR @ OO OONO VE WD FO ODNO ME WN 0 OD NAW WN OOOO WN (OOOO EF Wwh— 


PADMA AN1 


folelelolo) <BR ol oleleolelelelql ol =) 


WwMNnrnn—| —cCON 
SOreLrof OfFNWS 


NNNENN NOAM N NE NO 


000002 
017012 
002264 


100000 


002222 


52 
7 


1676 
167676 


167654 


— 5 
SEQ 0056 


-SSTTL PROGRAM UTILITIES 
~SBTTL RETRY COUNT MODULE 


eer detace dadataien tot tetas teen aie te ee 
iTHIs ROUTINE MAINTAINS THE RETRY COUNTER. RETRY MAXIMUM IS 5. THAT IS, 5 
TITERATIONS MUST OCCUR BEFORE AN ERROR IS REPORTED. eae AN ERROR IS REPORTED, 
3 THE DRIVE MUST BE FIXED, THE PROGRAM CAN DO NO MORE! 


j INPUTS ARE: ERRMSK 
{OUTPUTS ARE: ERRMSK, ERRONT, ERRTTL 
ICAL 
SR PC, RETRY sCALL THE ROUTI 


:THIs MODULE IS MAINLY CALLED BY: Oreete. DRVINI, 


NE 
sRETURN HERE IF EXCEED . MAX RETRY LIMIT 
sELSE RETURN HERE, IF RTYCNT >= 1 THEN ERROR 
IF RTYCNT = 0 THEN NO ERROR 


RDBSF, WRIBSF, WRITTD, 
TD, HDSCAN, DASCAN 


,eeeeeeeeeraeneeeeeereeeeereneeeeneaeeeeteneeaeneneneneatanaenereneneeeeeeeeeree 


RETRY: ADD #2, (SP) Hd a FOR GOOD RETURN 
JSR PC, Ps na yh THE REGISTER SNAPSHOT NOW 
TST ERRMSK ds GET ANY ERRORS ? 
BEQ 1$ ‘BR F NO 
INC RTYCNT 7 INCREMENT RETRY COUNTER AND 
INC ERRTTL ;THE TOTAL ERROR COUNTER 
ay" Naga ERRMAX D1 WE EXCEED THE MAX RETRY LIMIT ON ERROR ? 
L 
SUB #2, (SP) sADJUS1 FOR EXCEEDED oom LIMIT RETURN 
JSR PC,ERRORS ;REPORT THE ERROR NOW 
1$: CLR RTYCNT RESET RETRY COUNT TO 0 
TST ERRMSK ZANY ‘_ ERRORS? 
BEQ 3$ R NO 
2$: CLR ERRMSK RESET NO ERROR STATUS 
JSR PC,RESET INITIALIZE THE MASSBUS 
3$: RTS PC EXIT 


'MARBRBREBRARERARELASESLERASSRR RARER E EERE ERE SERS RRR RRR RRR RAR RRR RRR RRR RRR ARR RASA S| 


TTHIS MODULE, WHEN CALLED DOES A CLEAR TO THE DRIVE IT IS tesietanaisi ON THE 
;MODULE SEIZE’ TO RELOAD THE DRIVE NUMBER AFTER THE RESET 


$ INPUT S ARE: NONE 
‘ourpuTs ARE: RPCS1, RPOF, RPMR1 
-* 

3THIS MODULE IS CALLED BY: RETRY 


Ssteeeeekareaaeereereereeeerereehenaenhentaneaeeeeereneenaeetatenereneereneeeee 


RESET: JSR PC, SEIZE + GET THE DRIVE 
MOV #READIN, annesi : OA 


3D a: IN PR ee 
MOV phalbs :SET UP FOR 16 BIT WORD 
ioe CEMO — We IN MAINTENANCE MODE ? 


1$ :N ZERO 
BIS WBITIS,@RPMR1 YES, RESET THE MAINTENANCE BIT 


C 
R 


ZRJ 
ETR 


—y me MACRO V04.00 1-JAN-83 12:22:44 PAGE 22-1 


1$: JSR PC READY 
RTS PC 


SEQ 0057 


sWAIT FOR DRIVE READY NOW! 
;NOW RETURN TO MAIN 


SRHHHAAHAHHHEHHETHEHTERAETEHEREHEHHAHREHAHAAAHEEARHEHRARERAEEREEHeTHAeeeeteteneene 


THIS MODULE CHECKS DRY (RPDS-BIT#7) 


AGAINST A TIMED VALUE. IF RDY IS NOT 


;TRUE WITHIN THIS TIME PERIOD, ALL FURTHER ACTION IS ABORTED. 


te 
SINPUTS ARE: DRIVE 
[OUTPUTS ARE:  RPCS2, 
** 

[THIS MODULE IS CALLED BY: 


RPDS, RPAS 
RESET 


SP THAAAAAAHEHAAHAHHAKHE HEHEHE HRERAARHAHHHAHAEHKeATeHARAHeReReHeeeeteeeeetes 


SEIZE: BIS #CLR,@RPCS2 
MOV DRVNO, aRPCS2 
1STB. = @RPDS 
BMI 3$ 
CLR arp 
MOV R2,=(SP) 
MOV #i6., 

1$: TST arP 
BNE 2$ 
JSR PC WAIT 
DEC R2 
BNE 1$ 
MOV #3, ERRMSK 
MOV SUPRSS,-(SP) 
CLR SUPRSS 
JSR PC, SAVRPR 
JSR PC ERRORS 
MOV (SP) +, SUPRSS 

23: MOVB #377, aRPAS 
MOV ($P)4,R2 

3$: RTS PC 


;CLEAR THE MASSBUS 

RELOAD THE DRIVE NUMBER 

31S THIS DRIVE SEIZED BY ANOTHER PORT? 
:NO, JUST TAKE RETU 

3 1Soue Ro DRIVE REQUEST 


AV 
SLOAD R2 WITH AN OVERAL ITERATION COUNT 
sNOW WAIT FOR THE OTHER PORT TO RELEASE 
:NOT YET IF RPDS = 0 


sAND REDUCE THE ITERATION COUNT 
;LOOK AGAIN FOR DRIVE PRESENT 
;LOG "DRIVE HUNG, DRY NOT SET ERROR® STATUS 
4 Mty SUPRSS ON STACK 
ALLOW ERROR MESSAGE TO BE OUTPUT 
GET THE REGISTER SNAPSHOT NOW 
SAND REPORT THE ERROR 
:;POP STACK INTO SUPRSS 


;CLEAR ANY UNWANTED ATTENTION BITS 
sRESTORE R2 
AND TAKE RETURN 


KAO 
Y COUNT 
58 012574 006737 010156 
59 012600 000207 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
: 
75 012602 052777 900040 167624 
74 012610 013777 002420 167616 
75 012616 105777 167614 
76 012622 100435 
77 012624 005077 167606 
78 012630 010246 
79 012632 012702 000012 
80 012636 005777 167574 
81 012642 001021 
B82 012644 004737 012720 
83 012650 005302 
84 012652 001371 
85 012654 012737 000002 002264 
B6 012662 013746 002242 
87 012666 005037 002242 
8B 012672 004737 017012 
89 012676 004737 012752 
90 012702 012637 002242 
92 012706 112777 000377 167526 
93 012714 012602 
94 012716 000207 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 012720 
012720 012727 000372 
012724 000000 
012726 013727 002116 
012732 000000 
012734 005367 177772 
012740 001375 | 
012742 005367 177756 
012746 001367 
105 012750 000207 


eee nent ak eee ie dean ie canon tants Gee at ce a ee 
STHIS MODULE IS USED TO STALL IN LOOPS WHICH MUST WAIT FOR THE RPO7 
TMICROPROCESSORS. THE WAIT IS A FIXED TIME PERIOD, AND CANNOT BE CHANGED 
sDYNAMICALLY. THERE ARE NO SIDE EFFECTS. 


CALL 
: MODULE IS CALLED BY: SEIZE 


e 
se teeeeateeeereeerererettrereetenataneeenaneseeeKetenesenaetneneneeteneneseeene 


WAIT: 
MOV #250.,(PC)+ 
WORD 
MOV LSDLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE 74 
DEC =22(PC) 
BNE 720 
RTS PC sNOW RETURN 'O MAIN 


——" 
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ERROR HANDLER SEQ 0058 


1 .SBTTL ERROR HANDLER 
¢ TARR RRBRARBABZAASBEARESLELERESZARE ERE REE EERE RE RER EERE EERE EERE EERE REE ERR RRR RRR EERE 
i STHIS ROUTINE LOOKS AT ERRMSK, AND DECODES THE BIT MASK BITS 0-15 ARE 
; ;APPLICABLE. 
5 {INPUTS ARE: ERRMSK 
R TOUTPUTS ARE: ERRMSK, RTYCNT, ERATTL 
7* 
11 :THIS MODULE IS CALLED BY: RETRY 
\< Se eTHAAKHKHAAEHKEHAAHKKeH ete eeHeneHKeeNatenKeneneaeananetereeeeeneteteeererere 
1 
14 012752 005737 002264 ERRORS: TST ERRMSK DID We aan ANY ERRORS? 
15 012756 001430 BEQ 5$ SIF ERR 0, NO! 
16 012760 005737 002242 TST SUPRSS ALLOW ERROR MESSAGES ? 
17 012764 100425 BM] 5$ SIF MINUS, NO.... 
48 012766 010146 MOV R1,-(SP) 7;PUSH R1 ON STACK 
012770 010246 MOV R2,=(5P) i :PUSH R2 ON STACK 
19 012772 012701 013042 MOV #6$,R1 :GET THE TOP OF THE ERROR DISPATCH FILE 
20 012776 012702 000001 MOV #1,R2 ; AND SET UP THE ERROR NUMBER MASK. 
21 0130 023702 002264 1$: CMP ERRMSK,R2 [MA TCH? 
22 013006 001407 BEQ 2$ STAKE BRANCH OF DS = REPORT FIND NOW! 
23 013010 095202 INC R2 “GET NEXT ERROR POSITION 
24 013012 062701 000012 ADD #12,R1 iMOVE THE DISPATCH POINTER TO NEXT MESSAGE 
25 013016 020127 013302 CMP R1,87$ ARE WE AT THE END OF ERROR TABLE ? 
26 013022 103767 BLO 1$ ‘BR IF NO 
37 013024 000403 BR 4$ 
09 013026 000111 28: JMP (R1) ;REPORT FIND NOW 
31 013030 005237 002260 3$: INC ERTTL sADD ONE TO THE ERROR TOTAL 
32 013034 4$: 
013034 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
013036 012601 MOV ($P)+.R1 [POP STACK INTO R1 
33 013040 000207 5$: RTS PC RETURN 
38 013042 6$: ERRHRD 16,€M16,ERR3 ;TD RELOCATION ERROR =; ERRMSK=1 
013042 104456 AP —s- CSERHRD 
013044 000020 .WORD 16 
013046 007141 “WORD EM16 
013050 007704 “WORD ERR3 
39 013 00076 BR 3$ RETURN 
41 013054 ERRHRD 3,£M3,ERRO s COMPOSITE ERROR SERRMSK=2 
013054 104456 TRAP  C$ERHRD 
013056 000003 .WORD 3 
013060 006600 “WORD = EM3 
013062 007406 “WORD ERRO 
42 013064 000761 BR 3$ ; RETURN 
= 
44 013066 ERRHRD 4,EM4,ERRO :DRIVE HUNG ZERRMSK=3 
013066 104456 TRAP  C$ERHRD 
013070 000004 ~WORD 4 
013072 006624 [WORD EMG 
013074 067406 “WORD ERRO 
45 013076 000754 3$ RETURN 
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ERROR HANDLER 


46 
47 013100 ERRHRD 5,EM5,ERRO DRIVE WRITE LOCKED ZERRMSK=4 
013109 104456 TRAP CSERHRD a 
013102 000005 WORD 
013104 006664 .WORD EMS 
013106 00740 WORD ERRO 
48 013110 00074 BR 5 RETURN 
$0 013112 ERRHRD 6,£M6,ERRO :DRIVE OFFLINE ZERRMSK=5 
013112 104456 TRAP C$ERHRD 
013114 000006 «WORD 6 
013116 006707 <WORD EM6 
013120 007406 “WORD ERRO 
5 013122 000742 BR 3$ RETURN 
$3 013124 ERRHRD 7,£M7,ERRO SUNEXPECTED ATIN SERRMSK=6 
013126 1046456 TRAP = CSERHRD 
013126 000007 .WORD 7 
, 013130 006725 ;WORD EM? 
013132 007406 cw ERRO 
54 013134 000735 BR 3$ RETURN 
56 013136 ERRHRD 10,€M10,ERRO sWRITE CHECK ERROR sERRMSK=7 
013136 104456 TRAP CSERHRD 
013140 000012 .WORD 10 
013142 006756 “WORD €M10 
013144 007406 “WORD ERRO 
57 013146 000730 BR 3$ ; RETURN 
59 013150 ERRHRD 11,€M11,ERRS5 FORMAT VERIFY ERROR =; ERRMSK=10 
013150 104456 TRAP C$ERHRD 
013152 000013 .WORD 11 
013154 007004 “WORD EM11 
013156 007732 -WORD ERRS 
60 013160 000723 3$ RETURN 
62 013162 ERRHRD 1,€M1,E€8R1 :TD ADDRESS INCORRECT  ;ERRMSK=11 
013162 104456 TRAP = CSERHARD 
013164 000001 .WORD 1 
013166 006>27 “WORD EM1 
013170 007440 “WORD  ERR1 
63 013172 000716 BR 3$ RETURN 
65 913174 ERRHRD 2,€M2,ERR2 :TD FORMAT INCORRECT SERRMSK=12 
013174 106456 TRAP  — CSERHRD 
013176 000002 .WORD 2 
013200 006554 -WORD €EM2 
013202 007562 “WORD ERR2 
66 013206 000711 BR 3$ RETURN 
$8 013206 ERRHRD 12,€M12,FRRO  ;DRY DIDN'T RESET SERRMSK=13 
013206 104456 TRAP  CSERHRD 
013210 000014 .WORD 12 
013212 007030 “WORD M12 
013214 007406 “WORD  ERRO 
69 013216 000704 BR 3$ RETURN 
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ERROR HANDLER 


— 


71 013220 ERRHRD EM13,ERRO  ; TRANSFER ERROR ZERRMSK=16 
013220 104456 TRAP ERHRD 
01 2 000015 WORD 
01 4 007067 ~WORD 13 
013226 007406 WORD RO 
% 013230 000677 ;RETURN 
74 013232 ERRHRD EM14,ERRO ; SPECIAL CONDITION SERRMSK=15 
013232 104456 TRAP ERHRD 
013234 000016 WORD 
013236 007112 “WORD 14 
013240 007406 “WORD RO 
ie 013242 000572 ;RETURN 
77 013244 ERRHRD 15,£M15,ERRO SERRMSK=16 
013244 104456 TRAP ERHRD 
013246 000017 WORD 
013250 007140 ~WORD 15 
013252 007406 “WORD RO 
78 013254 000665 BR 
80 013256 ERRHRD 17,EM17,ERRO  ;UNRECOVEKABLE ERRUR =; ERRMSK=17 
013256 104456 TRAP ERHRD 
013260 000021 WORD 
013262 007216 “WORD 17 
013264 007406 “WORD RO 
8} 013266 000660 BR 
83 013270 ERRHRD 20,€M20,cRRO  ;RANDOM WCE'S DURING | ;ERRMSK=20 
013270 104456 TRAP ERHRD 
013272 000024 WORD 
013274 007263 “WORD 20 
013276 007406 “WORD RO 
84 013300 000653 R 
89 013302 


. 3 
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ERROR HANDLER - 
1 
$ “Hee eeCeeeeeeeeHeeeeaeseeeaeeeeeaeaeeeteteeesce*teeeteaeenceeeee 
itwis MODULE IS USED ANYTIME A FORMAT TRACK OR VERIFY TRACK COMMAND IS ISSUED. 
& THE MODULE i THE BUFFER USED FOR THE OPERATION AND DOES a SETUP FO 
5 THE COMMAND EXECUTION. IT ALSO EXECUTES THE COMMAND AND ALLOWS A RETRY it 
5 ; THE COMMAND FAILS. 
: INPUTS ARE: FUNCTN, TKWCNT 
19 ;OUTPUTS ARE:  ERRFNC, BADDR, NEGWRD, RPOF 
7* 
i 7 CALL 
1 : JSR PC ,MAKTRK NOW EXECUTE THE COMMAND 
14 5 seeese erst n HERE IF EXCEEDED RETRY LIMIT 
-@ 
17 ;THIS MODULE IS CALLED BY: MAIN 
18 ss eeeeeaerereereerereereerererreraeeranenerenanenateneteneneeeeerenererereteret 
19 
20 013302 MAKTRE: 
013302 010046 MOV RO,-(SP) 7;PUSH RO ON STACK 
013304 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
013306 010246 MOV R2,-(SP) 3; PUSH Re ON STACK 
013310 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 
013312 010446 MOV R4,-(SP) > ;PUSH R4 ON STACK 
013314 010546 MOV R5,-(SP) :;PUSH RS ON STACK 
21 013316 004737 015416 JSR PC,CALCTD 3D0 THE DEFECT LOCATING NOV 
22 013322 004737 016610 JSR PC ,MERGE [NOW PUT THE DEFECTS IN THE CORRECT SECTOR 
25 013326 012605 MOV (SP)+,R5 +3P CK INTO R5 
013330 012604 MOV (SP) +, R4 3;POP STACK INTO R4 
013332 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
013334 012602 MOV (SP)+,R2 3;POP STACK INTO R2 
013336 012601 MOV (SP)+,R1 3 POP STACK INTO R1 
013340 012600 MOV (SP)+,RO ¢ ;pOP STACK INTO RO 
24 013342 022737 000063 002370 1$: CMP #FMTRK,FUNCTN 31S THIS A FORMAT COMMAND? 
25 013350 001004 BNE ‘BR IF NO 
26 013352 012737 005510 002254 MOV #FORMAT,ERRFNC ;SAVE FUNCT!ON FOR ERROR ROUTINE 
$s 013360 000413 BR 3$ + AND SKIP NEXT 
29 013362 022737 000073 002370 2%: CMP #RDHD,FUNCTN :1S THIS A eaity FUNCT LON? 
30 013370 001007 - BNE 3$ ‘BR IF NO (MUST BE A WRITE CHECK) 
31 013372 012737 005523 002254 MOV WRHDATA,ERRFNC ;SAVE FUNCTION FOR ERROR ROUTINE 
32 013400 012737 033400 002230 MOV #TDSBLK,BADDR GET POINTER TO BEGINNING OF TD BLOCK 
$7 913406 000403 BR 4% ‘AND GO-ON 
35 013410 Org 37 032250 002230 3$: MOV #HDRBLK,BADDR ;GET POINTER TO BEGINNING OF HEADER BLOCK 
36 013416 013737 002350 002362 4$: MOV TKWCNT,NEGWRD ;SET TRACK WORD COUNT (6 WRDS X 50. SECTORS) 
37 Bt ates 052777 100000 167024 BIS #CMOD ,aRPOF SET COMMAND MODIFIER BIT 
38 013432 004737 010166 JSR PC DRIVER sEXECUTE ae ghey NOW 
39 013436 004737 012446 JSR PC,RETRY sSEE IF WE HAD ANY ERRORS 
* 013442 000405 ei 5$ :RETURN WERE If EXCEEDED RETRY LIMIT 
42 013444 005737 002266 TST RTYCNT :DID WE HAVE AN ERROR ? 
43 013450 001334 BNE 1$ ‘BR If YES 
44 013452 062716 000002 ADD #2,(SP) SADJUST FOR Bo RETURN 
45 013456 000207 5$: RTS PC + TAKE RETURN NOW 
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ERROR HANDLER 
4 
; 
8 
9 
19 013460 
12 013464 
013470 
013474 
013500 
013502 
013504 
13 013510 
14 013514 
1? 013522 
17 013524 
013526 
013530 
013532 
18 013534 
20 013536 
21 013544 
$§ 013546 
24 013554 
013560 
013564 
013566 
013570 
25 013574 
26 013576 
27 013576 
013602 
013606 
013610 
013612 
28 913616 
29 013622 
30 013626 
3 013632 
33 013634 
013636 
013640 
013642 
= 013644 
30 013646 
37 013652 
38 013656 


000000 


SS ]a~rnrwnnr font 
So Nm SS 
OW MOOOSONOCOO © 


oo ovr 
ou ON 


007364 


012602 
002420 


003405 
000002 


000004 
000377 
004244 
000001 
000004 


004216 
000001 


000004 


020042 


000004 
166560 


002237 


tHIS MODULE I$ USED 10 INITIALIZE THE RPO?. IT DETERMINES IF THE USER ee 
‘THIS MODULE IS USED TO INITIALIZ THE RPO7. 1 DETERMINES IF THE U 
ies DRIVE 1s ACTUALLY ri ta IT ALSO 


PPTTIITITISITIISIISTITTIIIIITIITITITT TILT ITTTIITITITITITTTITiTiTiliTiiiiiiiT 


DRVINI: JSR PC, SEIZE : SEIZE THE PORT | 
PRINT "DRIVE X 
MOV DRVNO, =(SP) 
MOV #FRMTI0,=(SP) 
MOV #2,-(SP5 
MOV P’R 
TRAP  CSPNTF 
ADD #6,SP 
TST aRPDS :D0 A READ OF THE DRIVE STATUS REG 
166712 BIT #NED, @RPCS2 [DO WE HAVE NED? 
BEO 1$ IF ZERO, DRIVE DOES EXIST 
‘REPORT NON-EXISTENT DRIVE" 
TRAP  CS$ERDF 
.WORD 1 
~WORD  €M21 
“WORD 0 
R NORUN ;TAKE THE BAD BRANCH, THE DRIVE IS NO GOOD! 
166672 1$: gir #ILEV,aRPDS 15 THIS DRIVE INTERLEAVE ENABLED? 
MOVB #377, INTLEV SET THE INTERLEAVE ENABLED MASK 
SPRINT *, INTERLEAVED' 
MOV #FRMT31,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP  CSPNTF 
ADD #4,5P 
BR 3$ 
2$: sPRINT *, NOT INTERLEAVED' 
MOV #FRMT30,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP  CSPNTF 
ADD #4,5 
3$: MOV aRPDT,-(SP) 3GET THE DRIVE TYPE REGISTER 
BIC #B1T11, (SP) [CLEAR THE DRIVE REQUEST REQUIRED BIT 
CMP #20042, (SP)+ 71S THE DRIVE AN RPO7? 
BEQ 4$ “BR IF YES 
[REPORT ‘DRIVE NOT AN RPO7" 
TRAP C$ERDF 
. WORD 
.WORD M22 
WORD 
R NORUN 
4$: MOV #4,R1 7GET AN OVERALL ITERATION COUNT 
5$: STB =—s-_ ARPDS [1S DRIVE FLADY SET 7? 
BM] 6$ *BR IF YES 


SEQ 0062 
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ERROR H 


oO 
MmrWuUs 


ooooeo oCoooooo 
oF 


NWA ne 
oN SNS NN ON OWN ESO NS ON OO 


~“ 
os 


mw e—— —OoON 
So = -_ 
~“ ~“ 
Cow OVUWWw VW 
oxnNN 


oo NNN NNN NN SAA AAAAAAA AINA ES BEES LL EES 
b> tye p ht hat te te wert nat any tat 
& ey 

MOFfFOoON OO OfOoOr 


OE 'AN =O ODN USIAN —OODNAUEWN “OOOs 


nae eSNG OM 


012720 


002166 
002200 
004000 
005553 


000004 
012446 


002266 


005502 
000007 
166370 


000013 
012446 


166516 


002254 
002264 


166442 


002254 
002264 


002370 


002256 


6$: 


7$: 


8$: 


9$: 


10$: 


NORUN: 


NOGOOD: 


BUF INI: 
1$: 


PC WAIT 
R1 


#3, ERRMSK 
#DRVRDY ,ERRENC 
PC, ERRORS 
NORUN 

#MOL ,@RPDS 
#MOL INE ,ERRFNC 
#5, ERRMSK 

PC RETRY 
NOGOOD 


RTYCNT 
6$ 


VRIFY 

9$ 

LIST 

9$ 
#WRL,@RPDS 
#WLOCK ,ERRFNC 
#4 ,ERRMSK 

PC RETRY 
NOGOOD 

RTYCNT 

8$ 

WRECALI ,ERRFNC 
WRECAL ,@RPCS1 
@RPDS 

10$ 

#13, ERRMSK 
PC, RETRY 
NOGOOD 


RTYCNT 
9$ 
SECC Ms, Siete 


NOGOOD 
RTYCNT 
10$ 

BUF INI 
ERRTTL. 
#-1, SOF Sw 
#BEGBUF , RI 


R1,#ENDBUF 


swell A LITTLE ‘om 
DONE TRYING YET 
BR IF NO 
;LOG "DRIVE HUNG, DRY NOT set ERROR® STATUS 
SAVE FUNCTION FOR ERROR ROUTINE 
;NOW REPORT THE ERROR 
;DRIVE IS NO GOOD 


is THE DRIVE ONLINE? 
F YES 


SMARK THE Sethe FUNCTION 

LOG prye © yt ERROR® STATUS 
SEE IF WE HAD ANY ERRORS 
RETURN pag IF EXCEEDED RETRY LIMIT 
TELSE RETURN HERE 
[DID WE HAVE AN ERROR ? 
7BR IF YES 


s1S THIS VERIFY ONLY MODE ? 
;BR IF YES 

71S THIS LIST MODE ? 

3BR IF Y 

hs THE aie WRITE LOCKED ? 


:BR N 
MARK. THE WRITE LOCK TEST 
:LOG ‘DRIVE ppt Best. ERROR® STATUS 
7SEE IF WE HAD ANY ER 
RETURN abe 3 IF EXCEEDED RETRY LIMIT 
ie SE RETURN HERE 

ID A HAVE AN ERROR ? 


SAVE FUNCTION FOR er ROUTINE 
;D0 RECALIBRATE COMM 
:DID DRIVE READY RESET DURING RECAL ? 


:BR IF YES 
3LOG "DRIVE gt Bias T RESET ERROR® STATUS 
7SEE IF WE HAD ANY ERROR 

RETURN on IF EXCEEDED RETRY LIMIT 

SELSE RETURN HERE 

:DID WE HAVE AN ERROR ? 

BR IF YES 


;SET UP FOR THE DRIVER 
: AND DO THE RECAL sot 
E IF WE HAD ANY ERRORS 
RETURN a IF EXCEEDED RETRY LIMIT 
SELSE RETURN HERE 
:D1D WE HAVE AN ERROR ? 
:BR IF YES 


3 ADD - TO THE _— TOTAL 
TLOAD THE FAILED STATU 
GET POINTER TO BEGINNING OF BUFFER SECTION 
INITIALIZE ALL BUFFERS 


SEQ 0063 
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RROR HANDLER 


96 014146 101774 BLOS 
97 014150 000207 RTS 


C 
E 
, ;BR IF NO 


i 
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1 
MeRRRRBRALABAASALALLALLALLELLESEE SE EES EEE EEE EEE EERE EEE EEE EES EE EE EEE EEE EEE EERE ERG 
THIS MODULE CREATES THE TABLES WHICH ARE USED TO SELECT DEVICE PARAMETERS 
4 [USED IN THIS PROGRAM. INCLUDED IN THE PARAMETER LIST ARE THE FOLLOWING ITEMS: 
5 SBASE REGISTER ADDRESSES FOR THE DEVICE, VECTOR ADDRESS OF THE DEV 
7 [DETERMINATION VIA OPERATOR FOR THE FOLLOWING: CONTROLLER TYPE. IN ADDITION, 
7 ‘DIALOGUE DETERMINES THE PRIORITY OF THE CONTROLLER, AND THE SELECTION OF A 
8 :DRIVE NUMBER FOR TEST. 
19 INPUTS ARE: NONE 
\$ sOUTPUTS ARE: RPADD, RHTYPE, RPBAE, RPCS3, DRIVE, RPCS1 
*® 
14 [THIS MODULE IS CALLED BY: THE INITIALIZATION CODE 
15 SAAR AAAAAAARAAAAA AAA AEAE RAE AAAEAEARAAAERAHEAAEAAHEHERAAHRRARKEReAHHAReeKAAeeees 
16 
17 014152 TABELD:: 
014152 010246 MoV R2,-(SP) s;PUSH R2 ON STACK 
014154 010346 MOV R3,-(SP) PUSH R3 ON STACK 
014156 010546 MOV R5,=(SP) ::PUSH R5 ON STACK 
18 014160 012702 000024 MOV #26. ,R2 iRe = ITERATION COUNT 
19 014164 012703 002424 MOV #RPCS1,R3 = DATA SINK 
20 014170 1$: ‘Cer HARDWARE P-TABLE 
21 014170 013700 002404 MOV UNIT,RO 
014174 104442 TRAP  C$GPHRD 
014176 010005 MOV RO,RS 
22 014200 103034 BCC 4$ 
25 014202 011346 MOV (R3),-(SP) sSAVE R3 
24 014204 011546 MOV (R5) 2 =(SP) [AND THE BASE ADDRESS 
25 014206 166616 000002 SUB 2(SP5, (SP) [DERIVE NEW ADDRESS 
26 014212 061623 2$: ADD (SP), <R3)+ ‘LOG IT IN NEW TABLE 
27 014214 905302 DEC R2 :COUNT LOGGING 
28 014216 601375 BNE 2$ R2 NOT ZERO, CONTINUE {LOGGING 
29 014220 004737 010014 JSR PC,SIZE70 SSEE IF AhiZ0 1S P 
30 014226 .005737 002416 TST RHTYPE 718 IT H70 ? 
31 014230 ° 001406 BEQ 3§ [BR IF 
32 014232 013702 002414 MOV RHEXT,R2 GET RPBAE OFFSET : 
33 014236 061502 ADD (R5) ,R2 TADD BASE ADDRESS TO OFFSE 
34 014240 010223 MOV R2,(R3)+ sSAVE NEW RPBAE 
35 014242 005722 TST (R2)+ : 
38 014244 010213 MOV R2,(R3) sSAVE NEW RPCS3 
38 014246 022626 3$: CMP (SP)+,(SP)+ sDONE, RESTORE THE STACK 
39 914250 012537 002406 MOV (RS) +. RPADR [SAVE RPCS1 BASE ADDRESS 
4C 014254 012537 002410 MOV (R5)+, sSAVE INTERUPT VECTOR ADDRESS 
41 014260 012537 002412 MOV (R5)+.RPVEC+2 SAVE INTERUPT PRIO 
42 014264 011537 002420 MOV (R5) ,DRVNO ; SETUP paive NUMBER FOR UNIT N 
43 014270 000406 BR 5$ *SKIP NEXT 
45 014272 005237 902 4$: INC UNIT STRY THE NEXT UNIT 
46 014276 023737 002404 002012 CMP UNIT, LSUNI 1S THIS THE Last UNIT TO TRY ? 
47 014304 002731 BLT 1$ :BR IF NO 
48 014306 5$: 
014306 012605 MOV (SP)+,R5 33PCP STACK INTO R5 
014310 012603 MOV (SP)+,R3 : POP STACK INTO R35 
014312 012602 MOV (SP)¢,R2 P STACK INTO R2 
49 014314 000207 RTS PC {TAKE THE RETURN 


6 
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ERROR HANDLER 


MARRBRBRARARASLARALALAASALARERRRARRR RRA R ERR RR RERAR ESA R RARER RE RRR RARER REE R RR RRA SD 

ituts MODULE 1S USED IN THE SCANNING PROCESS 10 PROVIDE ADDRESSES 10 THE EXEC 
WHEN A SECOND OR CONSECUTIVE ITERATION I$ NEEDED DURING A SCAN OPERATION, 

:THE ADDRESSES ARE LOCATED IN. THE BUFFER. DOUFF!” AND ARE PLACED THERE AS A 

:RESULT OF A PREVIOUS SCAN OPERATION, 


INPUTS ARE: TBLPTR 


; 

4 

5 

6 

7 

5 
19 sOUTPUTS ARE:  DESCYL, DESTRK 

*@ 

1 THIS MODULE IS CALLED BY: MAIN 

1 PT AAAHAAAAARAAAAEAHAAAAARE RARE EAARERAAAHERERAHERHEHRARAEREEEHEHAEHERAREEATAEEEE 
14 

15 014316 023737 002252 002232 GETNEX: CMP TBLPTR,LASLOC :DON E ? 

16 014324 103021 BHIS 1$ s1F =>, YES!! 

17 014326 017737 165720 002304 MOV aTBLPTR, DESCVL SGET THE CYLINDER ADDRESS 

18 014334 042737 170000 002304 BIC #170000. DESC SREMOVE ANY STATUS BITS 

19 014342 062737 000002 002252 ADD #2, TBLPTR GET THE TRACK ADDRESS 
20 014350 017737 165676 002244 MOV QTBLPTR,DESTRK :AND LOAD IT NOW 
21 014356 105037 002244 CLRB DESTRK SEXTRACT SECTOR FROM DISK ADDRESS 
22 014362 062737 000014 002252 ADD #<6*2>, TBLPTR :GET NEXT ENTRY IN BUFFER 
23 014370 000207 1$: RTS 


ro 


C 6 
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FIND DEFECT RELATIVE TO INDEX e E2 SEQ 006 


1 .SBTTL FIND DEFECT RELATIVE TO INDEX 
¢ "RRR AKHARRTeEATeHeCHSeEHKAHKHHK KKH HKKRKeKARRKAKAReeeAeeeteaeeeeeseeaeeseeaeaeaceeese 
i ‘THIS MODULE ACCEPTS SECTOR ADR AND WORD COUNT INPUT REPRESENTING A RELATIVE 
2 :DEFECT, WHICH IS CONVERTED TO ABSOLUTE DATA, RELATIVE ONLY TO INDEX. 
4 SINPUTS ARE: — INTLEV, SECADD, ECCWRD 
? OUTPUTS ARE:  ECCWRD 
1 [THIS MODULE IS CALLED BY: INPUTD, HDSCAN, DASCAN 
is settee aeneeraneerereeeeeereteneneeneneeneeeranReaHateeeeanteneeenenereeeeereeete 
14 014372 RELTIVE: 
014372 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
014374 010146 MOV R1.=(5P) +:PUSH R1 ON STACK 
014376 013746 002366 MOV ADD ,<(SP) ;7PUSH SECADD ON STACK 
15 014402 004737 014452 JSR PC MAPSEC iCORRECT THE SECTOR MAP NOW! 
16 014406 013700 002364 MOV ECCWRD — USER ECC INPUT 
7 014412 062700 000225 ADD Ferien tbec2+MDROeE 4 Tao” GET. INEO 10 SEErdn THE DEFECT 
19 014416 012701 000517 MOV #<HKDR*+G3+DATA+G4>,R1 [GET SIZE OF SECT 
20 014422 005337 002366 1$: DEC SECADD sKEEP TABS OF THE ITERATION COUNT 
21 014426 100402 BM] $ 'WHEN MINUS, END! 
22 014430 060100 ADD R1,RO [ADD ONE MORE SECTOR TO VALUE 
33 014432 000773 BR 1$ [AND HOUSEKEEP 
25 014434 010037 002364 2$: MOV RO,ECCWRD :L0G THE ABSOLUTE WAkue RELATIVE TO INDEX 
26 014440 012637 002366 MOV (SP) +, SECADD POP STACK INTO SECAD 
014444 012601 MOV (SP)+,R1 t:POP STACK INTO R1 
014446 012600 MOV (SP)+,RO 3;POP STACK INTO RO 
37 014450 000207 RTS PC 
29 "RASA HAKAAHAKAKReRRRKARAKARAARAaReekaeaeeeeaneeeeeeeenetenenese 
30 THIS MODULE IS USED WHEN A USER INPUTS A DEFECT VIA THE SECTOR WORD COUNT 
31 [MECHANISM AND THE DRIVE IS IN INTERLEAVED MUDE. THE DATA IS CONVERTED FROM 
32 : 3 INTERLEAVED POSITION TO LINEAR (NON-INTERLEAVED) POSITION. 
34 I ; INPUTS ARE: SECADD 
38 outputs ARE: SECADD 
38 STHIS MODULE IS CALLED BY: RELTIVE 
39 Ss eteeeereneneearereretererereteneeeneteeneneneetenteneneteneraeeenerenenereees 
40 
41 014452 105737 002237 MAPSEC: TSTB _—sINTLEV ZINTERLEAVED SECTORS ? 
42 014456 001420 BEQ 2$ R IF N 
43 014460 010146 MOV R1,-(SP) :zPUSH Ri ON STACK 
014462 010246 MOV R2 = (SP) :: PUSH R2 ON S$ ‘ 
44 0146664 113701 002307 MOVB  PLTRK,R :GET THE FIRST. TNTERLEAVED SECTOR os 
»45 014470. 013702 002366 MOV SECADD, RR [SAVE THE SECTOR ADDRESS 
46 014474 006301 ASL RI ‘MULTIPLY BY TWO 
47 014476 006302 ASL R2 [FOR THE THRESHOLD AND THE INPUT 
48 014500 020201 CMP R2,R1 ‘SCALE THE USER 
49 014502 103402 BLO 1$ :1T JUST NEEDS DOUBLING IF LOWER: 
50 014504 162702 000061 SUB #49. ,R2 ‘THIS 1S A SECTOR ADDRESS = 
51 014510 010237 002366 1$: MOV R2,SECADD TSAVE THE CORRECTED SECTOR ADDRESS 


wr 


dD 6 


CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 28-1 SEQ 0068 
FIND DEFECT RELATIVE TO INDEX 
52 014514 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
014516 012601 MOV (SP)+.R1 +:POP STACK INTO R1 
53 014520 000207 28: RTS PC ‘RETURN NOW! 


6 
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INSERT ABSOLUTE DEFECT INTO TDR 


1 .SBTTL INSERT ABSOLUTE DEFECT INTO TDR 
§ SL MAHHHHAAHHAHEHHHHHEHAHE HEHEHE HAAHHHHHHAHAHHAHEHAAHEAHeAHeHeTeTeeeneLetereeere 
4 [THIS MODULE INSERTS THE ABSOLUTE DATA FROM RELATIVE TO INDEX INTO THE 
5 SEXISTING TD RECORD (IF POSSIBLE). If THE SCANNER IS BEING USED AND THE 
6, ZNUMBER OF DEFECTS EXCEEDS 4, THE USER BAD SECTOR FILE WILL AUTOMATICALLY 
[BE UPDATED, ELSE AN ERROR MESSAGE WILL BE GENERATED. 
*@ 
10 INPUTS ARE: ECCWRD, TOWRDS = TOWRDG 
1 SOUTPUTS ARE: ECCWRD, TDWRD3 = TDWRD6 
-@ 
18 STHIS MODULE IS CALLED BY: INPUTD, HDSCAN, DASCAN, UPDSCR 
14 see eteneeeraearererereerrrerertentaneneeaeeteneaetereneneeeeeneaeeedeeeneeeeeese 
15 
16 014522 INSERT: 
014522 010646 MOV RO,-(SP) z7PUSH RO ON STACK 
014524 010146 MOV R1.=(5P) +:PUSH R1 ON STACK 
17 014526 012700 000004 MOV #4,R0 sGET THE # OF DEFECT WORDS TO CHECK IN TD 
18 014532 012701 030204 MOV #TDWRD3,R1 [FIRST ENTRY OF RECORD 
19 014536 022127 140000 1$: CMP (R1)*,@NULL 71S THE TD RECORD FULL ? 
20 014542 001403 BEQ 23 7BR IF N 
21 014544 005300 DEC RO ‘ONE LESS AVAILABLE ENTRY TO-GO 
3¢ 014546 003373 BGT 1$ ‘LOOK AGAIN 
33 014550 000430 BR 6$ ‘NO ROOM AT THE INN = WE'VE GOT TROUBLE. 
25 0146552 012737 177777 030244 2%: MOV #-1, TMPBSF ZFLAG THAT DATA IS FOR TD, NOT BSF 
26 014560 005737 030204 TST TDWRD3 ‘1S DATA VALID ? 
27 014564 001510 BEO :BR IF NO 
28 014566 012700 000004 MOV #4,R0 [GET THE # OF DEFECT WORDS TO CHECK IN TD 
<9 014572 012701 030294 MOV #7TDWRD3,R1 [GET POINTER TO BEGINNING OF DEFECTS 
0 014576 062737 000066 002364 ADD #<DS/2>,ECCWRD :ADD HALF A DEFECT TO ABSOLUTE VALUE 
31 0146046 023721 002364 3$: CMP ECCWRD,(R1)+ [DOES NEW DEFECT GO BEFORE THIS OLD DEFECT ? 
32 014610 103457 BLO 5$ :BR IF YES 
33 014612 166137 177776 002364 SUB =2(R1),ECCWRD  :MAKE NEW DEFECT RELATIVE TO PREVIOUS DEFECT 
34 014620 062737 000154 002364 ADD #<DS>,ECCWRD ZADD A DEFECT SKIP TO THE NEW DEFECT 
35 014626 005300 DEC RO ‘DONE LOOKING YET ? 
36 014630 003365 BGT 3$ ; F NO 
14 setup tO PUT THIS NEW DEFECT INTO THE USR BSF 
39 014632 913737 002324 030244 48: MOV DESCYL,TMPBSF :GET CYLINDER ADDRESS, 
40 014640 017737 0023566 030246 MOV SECADD, TMPBSF*2 :SECTOR ADDRESS AND 
41 014666 113737 022465 030247 MOVB _DESTRK*#1, TMPBSF +3 s TRACK ADDRESS. 
42 914654 005737 002170 1ST SCANR TARE WE DOING PACK SCAN ? 
4? 014660 001052 BNE 9$ ‘BR IF YES 
bi SPRINT ‘#® WARNING ** TD RECORD IS FULL, INPUT 
“s : DATA REJECTED" 
66 014662 012746 006016 MOV #WARN,-(SP) 
014666 012746 005005 MOV #FRMT60,-(SP) 
014672 012746 000002 MOV #2,-(SP) 
014676 010600 MOV SP,RO 
014700 104417 TRAP CSPNTF 
014702 062706 000006 ADD #6,5P 
7 014706 000437 BR 9$ 
49 014710 162737 000066 002364 5%: SUB #<DS/2>,ECCWRD ;SUBTRACT A HALF DEFECT FROM ABSOLUTE VALUE 
50 014716 005741 1S! -(R1) ‘BACK THE POINTER UP BY ONE WORD 
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INTO TOR 


000001 


149000 


ono 
PMA 


9$: 


R1),#NULL 
1),2¢R1) 


sho honwsan ee 


( 
( 
R 
C 
0 
$ 
( 
$ 
R 


(SP)+,R1 
(SP)+,R0 
PC 


NSERT AFTER THREE DEFECTS? 
F MATCH, YES 
NSERT A AFTER TwO DEFECTS? 
N 
e 


:1 
:] 
‘1 
:] YES 
: INSE SERT 1 AFTER ONE DEFECT? 

s SMUFFLE tHe DATA DOWN 

:TO MAKE ROOM FOR THE NEW DEFECT 
7KEEP SHUFFLING DOW 

‘LOG THE NEW DEFECT ‘pata Now! 
:WAS THIS LAST ENTRY IN 1D ? 


NEXT WORD NULL ? 
:BR YES 


FADJUST NEXT parece TO MAKE IT RELATIVE [0 
s THE NEW DEFEC 


3zPOP STACK INTO R1 
33;POP STACK INTO RO 
NOW RETURN TO MAIN 


SEQ 0070 
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TRACK DESCRIPTOR RECORD DUMP 
1 .SBTTL TRACK DESCRIPTOR RECORD DUMP 
§ “Meee eeeeeeeeeeeeeeeeeeeeeeeeteeeeeekeneteeaeeneaeeneneeeaeneteneeeeeeteeeee 
4 tTHIS MODULE PRODUCES THE TRACK DESCRIPTOR FILE ON THE LOCAL CONSOLE PRINTER. 
2 y1T IS INVOKED ANYTIME A USER REQUESTS A TRACK DESCRIPTOR DUMP, 
°¢ 
s INPUTS ARE: TEXT, TOWRD1 = TDWRD6 
1 sOUTPUTS ARE: NONE 
*@ 
1° ;THIS MODULE IS CALLED BY: INPUTD, READTD 
\< ee tteertaenenaereererereeereerererehanaeranaenenaaneteneteneneneeoeneererereterene 
1 
14 015014 TDDUMP: 
015014 010146 MOV R1,<(SP) : PUSH R1 ON STACK 
015016 010246 MOV R2,<(5P) PUSH R2 ON STA 
15 015020 005737 002200 TST LIST :1s List OPTION ENABLED ? 
16 015024 001404 BEO 1$ N 
17 312068 023727 002246 000001 CMP DEFCNT,#1 WAS FIRST DEFECT LISTED ALL READY ? 
18 015034 002022 BGE 2s RIF Y 
19 015036 1$: {PRINT THE APPROPRIATE MESSAGE 
20 015036 013746 002344 MOV TEXT, =(SP) 
015042 012746 002645 MOV #FRMTT,-(SP) 
015046 012746 000002 MOV #2,-(SP) 
015052 010600 MOV SP,RO 
015054 104417 TRAP CSPNTF 
015056 062706 000006 ADD #6,SP 
21 sPRINT “WORD#1 (CYL) WORD#@2 (TRK)(SEC) WORD#3 WORD#4 WORDSS 
22 015062 012746 004421 MOV #FRMT35,-(SP) 
015066 012746 000001 MOV #1,-(SP) 
015072 010600 MOV SP-RO 
015074 104417 TRAP CSPNTE 
015076 062706 000004 ADD #4,5 
23 015102 013744 030202 2$: MOV TDURD2. -(SP) +1¥ THE 7” eo OF THE TD (TRK/SEC ADRS) 
24 015126 015846 MOV (SP) ,-(SP) — 2ND T 
25 015110 105066 000003 CLRB 3(SP5 at RID oF "at BYTE (EXTRACT SECTOR) 
26 015114 011646 MOV (SP) ,-(SP) :SAVE 2ND TD WORD 
27 015116 105066 000002 CLRB = 2 ( SP) [GET RID OF LOW BYTE (EXTRACT TRACK) AND 
28 015122 000366 000002 SWAB ss 2 ( SP) [MAKE IT THE LOW BYTE DATA. 
29 015126 013746 030200 MOV TDWRD1, rt a sGET THE d-¥ WORD OF ID (CYLINDER ADDRESS) 
30 015132 011646 MOV (SP) ,-(SP) ‘SAVE 1ST TD WORD 
31 015134 042766 170000 000002 BIC #170600,2(SP)  :STRIP THE STATUS BITS 
32 :PRINT TD WORD#1, CYL, TD WORD#@2 & TRK/SEC PATA 
33 915142 012646 MOV (SP)+,-(SP) 
015144 012646 MOV (SP)+.=(SP) 
015146 012646 MOV (SP)+,-(SP) 
015150 012646 MOV (SP)+,=(SP) 
015152 012646 MOV (SP) +, =(SP) 
015154 012746 004530 MOV #F RMT S6,-(SP) 
015160 012746 000006 MOV #6,°(SP) 
015164 010600 MOV SP RO 
015166 104417 TRAP CSPNTF 
015170 062706 000016 ADD #16,SP 
34 015174 012701 030204 MOV #TDWRD3,R1 rGET THE DEFECT FILE 
3S 015200 012702 000004 MOV a4,R SAND THE MAXIMUM NUMBER OF DEFECTS 
36 015204 022127 140000 3$: (MP (R1)*, NULL [1S IT NULL DATA ? 
37 015210 001413 BEQ 4$ tBR IF VES 
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COOOCOCoCSCOO COCO OCOCOCOOCOOOCOCoOOoOO 
Oe a ah a oh hh th ot tt 


DVPVDPVIVIVIUSVIE PUPILS SIS SIIISISISIIIIS 
FOS LSOLOOSNMOSNVMEN 


ree 
OV Ew 


> & 
o wn 


—OO0oO 


ow ews 


& 
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177776 
03624 
00002 


000006 


177776 
003635 
000002 


000006 


002642 
000001 


000004 


4$: 


5$: 


=2(R1),<(S 
#FRMTIL =( 
#2,-(SP 
SPR 
CSPNTE 
#6 


) 
S$ 
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TRACK DESCRIPTOR RECORD DUMP 


) 
P) 


=2(R1),=(SP) 
#FRMT1§ (SP) 


#2,-(SP) 
SP,R 
CSPNTF 
#6,SP 
Re 
3$ 


#CRLF ,=(SP) 


#1,-(SP) 
SP,R 
CSPNTF 
@&,SP 
(SP)+,R2 
(SP)+,R1 
PC 


SPRINT THE DEFECT DATA 


;PRINT * 140000 * 


CRLF 


sONE LESS IT 
NTIL = 


E 
0 


ATION TOGO 


zzPOP STACK INTO R2 
::POP STACK INTO R1 
STAKE THE RETURN 


SEQ 0072 


C 
T 


ZR 
RA 


JK 
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DESCRIPTOR RECORD DUMP 
1 
2 “M@Oeeeeeeeaeeeeeeeeeeeeeeeeeeeeeseeeaeeeeeeaeeaeeeeeeeaeeeteteneeeeeeeeeeeaeeneeeeee 
3 i THIS MODULE IS USED TO SORT OUT DUPLICATE ENTRIES IN THE USR BSF BUFFER 
4 ‘BEFORE THE BUFFER IS WRITTEN TO THE DISK. (DEC 144 FILE). 
5 PPETIITITITIITIITTISIIITITITITITITITITITT TIT I TIT TTT iti 
. 
7 015316 012702 031260 SESORT: MOV #USRBUF +8. ,R2 GET POINTER TO BEGINNING OF USER BUFFER 
8 :T0 GET OVER 2 S/N WRDS AND 2 ALL O°S WARDS. 
9 015322 010201 1$: MOV R2,R1 ‘START WITH THE SAME BuFFeR 
10 015324 Ogee! CMP (RI)+, (R1)4 ‘GET OVER 1ST CYLINDER/TRACK/SECTOR WORDS 
11 015326 022221 23: CMP (R2)+,(R1)¢ sDUPL ICATE DATA? (CYLINDER ADDRESS) 
iF 0135 0 001017 BNE 5$ NO 
13 015332 022221 CMP (R2)+,(R1)¢ EDUPLICATE DATA? (TRACK/SECTOR ADDRESS) 
14 015334 001014 BNE 4$ N 
15 015336 012161 177772 3$: MOV (R1)+,-6(R1) STRIP THE DUPLICATE ENTRY AND PUSH DOWN 
16 015342 012161 177772 MOV (R1)4+,=6(R1) ‘KEEP PUSHING DOWN THE LIST 
17 015346 020127 032246 CMP R1,#ENDUSR 3 END OF USR BUFFER YET 5 
18 015352 101771 BLOS 6. 3 NO 
19 015354 012741 177777 MOV #-1,-(R1) tne THIS ENTRY (LAST ENTRY IN BUFFER) 
20 015360 012741 177777 MOV #-1.-(R1) SAND THE PREVIOUS ENTRY 
@1 015364 000756 BR 1$ SAND GO-ON! 
23 015366 024241 4$: CMP =(R2),-(R1) sPUSH THE BUFFER POINTERS (BACK TO THE TRACK ADDRESS 
24 015370 024221 5$: CMP -(R2).(R1)¢4 ZRESTORE R2 AND POP R1 TO THE NEXT BUFFER ENTRY 
25 015372 020127 032246 CMP R1,#ENCUSR DONE WITH THIS COMPARISON? 
26 015376 =103753 BLO :BR IF NO 
27 015400 022222 CMP (R2)+,(R2)4 'GET NEXT ENTRY TO LOOK FOR DUPLICATES 
28 015402 005712 TST (R2) [1S IT END OF BUFFER 
29 015404 100403 BMI 6$ :BR IF NO 
30 015406 020227 032242 CMP R2, #ENDUSR=4 [DONE WITH ENTIRE BSF YET ? 
31015412 103743 BLO 1$ :BR IF NO 
32 015414 000207 63: RTS PC ‘RETURN TO THE USER 
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TRACK DESCRIPTOR CALCULATION MODULE 


1 .SBTTL TRACK DESCRIPTOR CALCULATION MODULE 
¢ MARBRBRBRBRAAAARERELELAELESE EEE SLE EE EA REE ERE EEE EEE EERE EEE REECE EEE EEE EEE EERE CEE EEE 
4 t THIS ROUTINE COMPUTES THE ae VAL roe o THE TD WORD, AND DETERMINES IF THE 
5 SDEFECT LIES WITHIN THE CURRENT SECTOR. IF THE DEFECT DOES, THE APPROPRIATE 
g #CALCULATION 1S MAPPED AND PREPARED FOR TRANSFER TO THE DRIVE. 
* INPUTS ARE: TDWRD3 = TDWRD6, DS, PARTBL, 
1% 3 SIZE OF SECTOR (HDR*+G3+DATAsG4) 
11 ZOUTPUTS ARE: TOSBLK, RO = RS, DEFSEC, DEFTRK, TDCPY1 = TDCPY4, 
i : DEF1 = DEFS, DEFCNT 
*@ 
14 [THIS MODULE IS CALLED BY: MAKTRK 
15 se, teeeeeererrereetereeerereerererenateneteteeeeeeeeeetereteretereneetenetenetes 
16 
17 015416 005037 002374 CALCTD: CLR DEF TRK ZRESET THE # OF DEFECTS PER TRACK COUNTER 
18 015422 012705 033400 MOV #TDSBLK,RS [POINT TO THE TD OUTPUT BLOCK 
19 015426 013737 002224 002226 MOV ENDPTR,ENDTAB :GET THE BUFFER SIZE LIMIT 
20 0154 006337 S543 ASL ENDTAB sPuUT THE Neg IT ON A WORD BOUNDARY 
21 015440 062737 033400 002226 ADD #TDSBLK,ENDTAB ;AND SET THE LIMI 
$§ 015446 BiS soe 030214 1$: MOV #TDCPY1.R4 sRESTORE POINTER TO 1ST TD WORD 
23 015452 013724 030204 MOV TOWRD3, (R4)* sSAVE TD WORD #3 
24 015456 013726 030206 MOV TDWRDG, (R4)¢ sSAVE TD WORD #4 
25 015462 013724 030210 MOV TOWRDS, (RG) SSAVE TD WORD #5 
26 015466 013724 030212 MOV TDWRDG, (R4)+ [SAVE TD WORD #6 
27 015472 012704 030214 MOV #TDCPYI RG :RESTORE POINTER TO 1ST TD WORD 
28 015476 022427 140000 cm? (R4)+ /#NULL + ANY peres's ON THIS TRACK ? 
29 015502 001007 BNE 3$ BR YES 
30 015504 2$: =NO HORE DEFECTS ON THIS TRACK, SO NULL THE 
31 :SKIP DISPLACEMENT WORDS IN EACH OF THE 
32 015506 012725 140000 MOV #NULL, (R5)¢ SREMAINING SECTORS. 
33 015510 020537 002226 CMP RS, ENDTAB 'DONE WITH THE TABLE YET ? 
34 015514 003773 BLE 2$ [BR IF NO 
35 015516 000137 016246 JMP 17% TEXIT, GO WRITE FORMAT FOR THIS TRACK 
36 SNOW CORRECT EACH SKIP TO THE BEGINNING OF 
37 :THE DEFECT, SO mM ac hn BE INSERTED INTO IT'S 
38 APPROPRIATE SEC 
39 015522 005237 002374 3$: INC DEF TRK SACCUMULATE # OF Orfects oN THIS TRACK 
40 015526 023727 002374 000004 CMP DEF TRK, #4 3D1D WE yREACH LAST DEFECT 
41 015534 103003 BHIS 4$ F 
42 015536 022427 1400060 CMP (R4) +, NULL ANY MORE DEFECTS ? 
43 015542 001367 BNE 3$ R IF YES 
44 ‘NOW GO LOOK TO SEE IF THE TD AND/OR HDR O HAVE 
4s [BEEN MOVED, SO THE REMAINING DEFECTS CAN BE 
46 SADJUSTED ACCORDINGLY 
47 015544 012704 030214 4$: MOV #TDCPY1,RG RESTORE POINTER TO 1ST TD WORD 
48 015550 004737 016252 JSR PC, TDCASE ‘LOOK FOR A TD AND/ /OR HDR 0 MOVED 
49 015554 021427 140000 CMP (R4), @NULL :ANY MORE DEFECTS ? 
50 015560 001751 BEQ 23 R IF NO 
3 :NOW FIND WHICH SECTOR THE DEFECT SHOULD BE 
53 015562 162714 000066 SUB #<DS/2>,(R4) : CORRECT 1ST DEFECT TO THE BEGINNING OF DEFECT 
54 015566 105037 902240 S$: CLRB ss SAMSEC *RESET THE SAME SECTOR 
58 015572 005037 002372 CLR DEF SEC :THE # OF DEFECTS PER ste TGh COUNTER AND 
56 015576 005037 016250 CLR TMDLTA [THE TEMP, ACCUMULATIVE DELTA COUNTER, 
57 015602 012700 000004 MOV #4,R0 [GET # OF ENTRIES 
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58 015606 012701 002554 MOV MDELTA,RI < ;GET_POINTER TO BEGINNING OF DELTA TABLE 
59 015612 005021 6$: CLR (Ri)* SINITIALIZE THE TABLE 
60 015614 00 Q DEC [DONE YET ? 
61 015616 90 BGT x3 :BR IF NO 
6¢ 015620 2701 002554 MOV #DELTA,R1 [GET POINTER TO BEGINNING OF DELTA TABLE 
63 015626 005714 1ST (R4) ANY MORE DEFECTS ON TRACK ? 
64 015626 003726 BLE 2$ ‘BR IF NO 
65 015630 0127 0 000517 MOV M<HDR*+G3*DATA*G4>,RO = ;GET THE SIZE OF SECTOR 
66 015634 160014 SUB RO, (R4) s1S THE DEFECT IN THIS SECTOR ? 
67 015636 003166 BGT 16% :BR IF NO 
68 015640 060014 ADD RO, (R4) SYES, RESTORE DEFECT 
69 NOW FIND WHERE THE BEGINNING OF THE DEFECT 
0 ALLS WITHIN THIS PARTICULAR SECTOR 
71 015642 012703 002322 MOV #PARTBL ,R3 2GET POINTER TO BEGINNING OF SECTOR PARTITION TABLE 
72 015646 012302 MOV (R3)¢,RO [GET THE 1ST PARTITION 
73 015650 021402 7$: CMP (RS) R2 1S THE DEFECT IN THIS PART OF THE SECTOR ? 
74 015652 101410 BLOS 6-9 7BR IF YES 
75 015654 021400 CMP (R4) RO ‘1S THIS DEFECT AT THE SECTOR LIMIT ? 
76 015656 001402 BEQ 4 ‘BR IF 
77 015660 062302 ADD (R3)+,R2 SEXTEND THE PARTITION RANGE IN THE SECTOR 
78 015662 000772 BR 7$ [AND TRY AGAI 
79 015664 005314 8$: DEC (RG) + FOUND DEFECT AT END OF SECTOR. REDUCE BY ONE 
80 015666 005237 002372 INC DEF SEC TONE MORE DEFECT FOUND IN THIS SECTOR 
81 015672 000425 BR 0$ [TO FACILLITATE RPoY MICROCODE TESTING 
83 015674 005237 002372 9$: INC DEFSEC sONE MORE DEFECT FOUND IN THIS SECTOR 
84 015700 105737 002240 TSTB  SAMSEC 31S THIS THE 1ST DEFECT IN THIS SECTOR ? 
85 015704 001420 BEQ 10$ R IF YES 
8% iNOW SEE IF THE BEGINNING OF THIS DEFECT FALLS 
4 suit THE NEXT MINIMUM DATA SEGMENT OF THIS 
9 015706 021427 000176 CMP (R4) ,#<DS*MSEG> 31S DEFECT WITHIN NEXT MINIMUM DATA SEGMENT ? 
015712 101015 BHI 10$ NO 
91 015714 012746 000176 MOV #<DS*MSEG>, -(sP)' USH #<DS+*MSEG> ON her 
92 015720 011615 MOV (SP), (R5) SAVE Hise VALUE IN THE DEFECT TABLE 
93 015722 161416 SUB (R4), (SP) 3GET DELTA FOR SKEW FORWARD TO ae MINIMUM DATA SEGMENT 
94 015724 012621 MOV (SP)+, (R1)+ “SAVE THE VALUE IN THE DELTA TABLE 
95 015726 026427 060002 140000 CMP 2(R4) NULL iANY MORE DEFECT 
96 015734 001431 BEQ 12$ R IF NO 
97 015736 166164 177776 000002 SUB -5(R1),2(R4) “ ZADJUST THE NEXT DEFECT ey DELTA 
98 015744 000425 BR 12$ :NOW, GO AND SET THE STATUS 
100 015746 011415 10$: MOV (R4), (RS) sLOG THIS NON-CRITICAL INFORMATION 
101 915750 105737 002240 1STB = SAMSEC [1S THIS THE 1ST DEFECT IN THIS SECTOR ? 
102 015754 001021 BNE 12$ [BR IF NO 
103 SNOW SEE IF THE BEGINNING OF THIS DEFECT FALLS 
104 SWITHIN THE HEADER OF THIS SECTOR 
105 015756 021527 000010 CMP (RS), #<HDR> [1S THE DEFECT SOR AIN THE HEADER ? 
106 015762 101014 BHI 11$ 7BR IF NO 
107 015764 012746 000010 MOV @<HDR>,-(SP) *PUSH #<HDR> ON STACK 
108 015770 161516 SUB (R5), (SP) {RIND T THE SKEW VALUE AND 
109 015772 061615 ADD (SP), (R5) [CORRECT THIS DEFECT V LUE 
110 015774 012621 MOV (SP)+,(R1)¢ SSAVE THE VALUE IN THE ADELTA TABLE 
111 015776 026427 000002 140000 CMP 2(R4) ,#NULL ZANY MORE DEFECT ? 
112 016006 001403 BEQ 11$ R IF NO 
113 016006 166164 177776 000002 SUB =2(R1),2(R4)  SADJUST THE NEXT DEFECT By ¥ DELTA 
114 016014 162715 000006 11$: SUB #<HDR-2>,(R5)  =NOW MAKE THE REFERENCE TO THE BEGINNING 
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115 :0F THE 1ST HEADER CRC WORD 

116 SAND POINT TO THE NEXT DEFECT ENTRY 

117 016020 0057 5 12$: TST (R5)¢ SMOVE THE OUTPUT POINTER UP ONCE! 

118 016022 0047 016400 JSR PC, CHKSEG [G0 CHECK FOR MINIMUM DATA SEGMENT VIOLATIONS 
119 0160 § 008337 002374 DEC FTRK [ONE LESS DEFECT TO GO ON THIS TRACK 

120 0160 901624 BEO SIF ZERO, TRACK RECORD IS COMPLETE 

121 016034 013746 016250 MOV TMOLTA,=(SP) +:PUSH TMDLTA ON STACK 

1 é 016040 163716 90¢ 54 SUB DELTA, (S sACCUMULATE ALL DELTA VALUES 

123 016044 163716 002556 SUB DELTA*2, (SP) :S0 THEY CAN BE SUBTRACTED FROM 

124 016050 163716 902560 SUB DELTA+4.(SP) | :THE BALANCE OF THE SECTOR REMAINS. 

125 016054 163726 002562 SUB DELTA#6, (SP)¢ SANY MORE DELTA’S ACCUMUMLATED ? 

1 6 016060 902005 BGE 13$ :BR IF NO 

127 016062 005446 NEG -(SP) [MAKE THE DIFFERENCE POSITIVE 

128 016064 061637 016250 ADD (SP), TMDLTA SAND ADD IT TO OLD ACCUMULATED TEMP. DELTA 
129 016070 161600 SUB (§P) RO SSUBTRACT DELTA FROM END OF SECTOR BOUNDRY AND 
130 016072 162602 5uB (SP)+,R2 [FROM SECTOR PARTITION VALUE. 

131 016074 161400 13$: SUB (R4) RO [MAKE THE END OF SECTOR BOUNDRY RELATIVE TO 
132 016076 062700 000154 ADD #<DS>,RO [THE PREVIOUS DEFECT AND ADD A SKIP 10 EXTEND 
13 [THE END OF SECTOR BOUNDRY. 

134 016102 162402 SUB (R4)+,R2 “MAKE THE SECTOR PARTITIONS RELATIVE TO THE 
135 016104 062702 000154 ADD #<DS>.R2 :PREVIOUS DEFECT AND ADD A SKIP TO EXTEND 
136 [THE PARTITION RANGE. 

137 016110 021427 000154 CMP (R4) ,#<DS> [WILL THIS DEFECT BE STACKED ? 

138 016114 003406 BLE 14 <BR IF YES 

139 016116 021400 CMP (R4),RO °1S THE BEGINNING OF DEFECT IN CURRENT SECTOR ? 
140 016120 003023 BGT 15$ ‘BR IF NO 

141 016122 001660 BEO BS [BR IF AT THE END OF THE CURRENT SECTOR 

142 016124 105237 002240 INCB = SAMSEC tMARK THIS DEFECT AS BEING IN SAME SECTOR 
143 016130 000647 BR 7$ 

144 NOW SETUP TO ADJUST THE SECTOR FOR STACKED 
146 016132 005237 002372 14$: INC DEF SEC [ONE MORE DEFECT FOUND IN THIS SECTOR 

147 016136 012715 000154 MOV #<DS>, (R5) [LOG THE STACKED DEFECT INFORMATION 

148 016142 026427 000002 140000 CMP 2(R4) ,#NULL SANY MORE DEFECTS ? 

149 016150 001723 BEQ 2$ [BR IF NO 

150 016152 012746 000154 MOV #<DS>,-(SP) SVALUE OF STACKED SKIP 

151 016156 161416 SUB (R4), (SP) SSUBTRACT CURRENT VALUE OF R4 FROM STACKED 
138 016160 161664 000002 SUB (SP) ,2(R4) ‘VALUE AND ADJUST NEXT DEFECT BY DELTA 

153 016164 012621 MOV (SP)+,(R1)¢ [LOG THE DELTA 

134 016166 000714 BR 12$ 

156 016170 160014 15$: SUB RO, (R4) :MODIFY THE SECTOR REMAINDER 

157 016172 006337 002372 “SL DEF SEC SADJUST DEFECT COUNT X 2 

158 016176 006337 002372 ASL DEF SEC SADJUST DEFECT COUNT X 4 

159 016202 062737 016214 002372 ADD #163, DEF SEC ‘NOW FIND HOW MANY DEFECTS TO NULL OUT IN THE 
160 016210 000177 164156 JMP aDEF SEC SREMAINDER OF THE HEADER WORDS IN THIS SEC'OR 
16g 016214 012725 140000 16$: MOV #NULL, (RS) + :NULL $D1, 

163 016220 012725 140000 MOV #NULL, (RS) + SNULL SD2, 

164 016224 012725 140000 MOV #NULL,(R5)+ [NULL $D3, 

165 016230 012725 140000 MOV #NULL, (R5)+ [NULL SD4°IN THE HEADER OF THIS SECTOR 

166 016234 020537 002226 CMP RS, ENDTAB [DID WE DO THE ENTIRE TRACK YET ? 

167 016240 101002 BHI 17§ ‘BR IF YES 

168 016242 000137 015566 JMP 5$ SAND CONTINUE 

169 016246 000207 17$: RTS PC TEXIT, GO WRITE FORMAT FOR THIS TRACK 

171 016250 000000 TMDLTA: .WORD 0 s TEMP. ACCUMULATIVE DELTA VALUE GOES HERE 


M 
CZRJKAO RPO7 FMTIR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 33 SEQ 0077 
ADJUST DEFECT TO TRACK DESCRIPTOR 


1 .SBTTL ADJUST DEFECT TO TRACK DESCRIPTOR 
§ 3 PM ARRRARAAAALELEALELEE ESE SELES EE EL ESET REECE EA EE EEE CEE CEE EEE CEE ECE 
4 [THIS MODULE IS USED TO ADJUST ANY DEFECT DATA FOUND WHICH OCCURS SUBSEQUENT 
5 7T0 A TD MOVED AND/OR A HDR O MOVED TRACK DESCRIPTOR VALUE. IT ALSO COUNTS 
8 THESE DEFECTS IN THE OVERALL COUNTER. 
8 : INPUTS ARE: BUFFER CALLED ‘TDCPY1" (WHICH IS POINTED TO BY R4) 
19 SQUTPUTS ARE: DEFSEC, BUFFER CALLED ‘TDCPY1" (WHICH IS POINTED TO BY R4) 
i 3CALL 
1 ; JSR PC, TOCASE 
14 FERRARA A EA AAEAAERE AERA AAA TERHAAAAEREAREREAHAAAREAHEAEAAARARERAREREREEEeE EES 
15 
16 016252 012700 002336 TDCASE: MOV #TDLMTS,RO :GET POINTER TO TD DEFECT LIMITS 
17 016256 012702 000055 MOV #<TD+G2>,R2 ‘INCLUDE THIS IN THE CALCULATION 
18 016262 021420 CMP (RG), (ROS+ ‘WAS TD MOVED ? 
19 016266 003416 BLE : F YES 
20 016266 021420 CMP (RG), (RO)* sWAS HDRO MOVED ? 
21 016270 003403 BLE : FY 
22 016272 012702 000155 MOV #<G1+TD+G2>,R2 :INCLUDE THIS IN THE CALCULATION 
23 016276 000436 BR 4$ 
24 ZACCOUNT FOR HEADER 0 MOVED 
25 016300 005337 002374 1$: DEC DEF TRK [ONE LESS DEFECT TO GO ON THIS TRACK 
26 016306 162702 000055 SUB #<TD+G2>,R2 s INCLUDE THIS IN THE CALCULATION 
27 016310 016046 177776 MOV =2(RO) , (SP) :GET HDR O MOVED LIMIT 
28 016314 162416 SUB (R4)+, (SP) ZFIND DIFFERENCE, UPDATE POINTER TO NEXT DEFECT 
29 016316 062602 ADD (SP)+,R2 ZAND ADD DIFFERENCE TO THIS CALCULATION. 
30 016320 000414 BR ay 
31 ZACCOUNT FOR TRACK DESCRIPTOR MOVED 
32 016322 005337 002374 2$: DEC DEF TRK ZONE LESS DEFECT TO GO ON THIS TRACK 
33 016326 016446 000002 MOV 2(R4),=(SP) sSAVE NEXT DEFECT VALUE. 
34 016332 016046 177776 MOV =2(RO) ,-(SP) :GET TD MOVED LIMIT 
35 016336 162416 SUB (R4)+, (SP) ZFIND DIFFERENCE, UPDATE POINTER TO NEXT DEFECT 
36 016340 061602 ADD (SP) ,R2 ZAND ADD DIFFERENCE TO THIS CALCULATION. 
37 016342 162616 SUB (SP)+, (SP) sALSO, TAKE ANY DIFFERENCE FROM NEXT DEFECT 
38 016344 005720 1ST (RO) + [UPDATE LIMIT POINTER TO LOOK FOR HDR O MOVED 
39 016346 022620 CMP (SP) +, (RO)+ :WAS HDR 0 ALSO MOVED ? 
40 016350 003753 BLE 1$ ‘BR IF YES 
42 016352 021427 140000 3$: CMP (RG), #NULL sANY MORE DEFECTS ? 
43 016356 001407 BEQ : 
44 916360 032737 140000 030200 BIT #B1114'BIT15, TOWRD1 :WERE TD AND/OR HRD 0 REALLY MOVED ? 
45 016366 001402 BEQ 4 : F NO 
46 016370 062702 000066 ADD #<DS/2>,R2 s INCLUDE HALF A SKIP IN THE CALCULATION 
47 016374 160214 4$: SUB R2,(R4) ‘SUBTRACT ALONG WITH SKIP DEFECT INFO 
48 016376 000207 5$: RTS 
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1 SRSRFERAKAEAARAeEAEKTEKAAEAHHATAHKAHKAAAARARARAARARIARHREREAARRERAREARERERERERERAEEEEEEE 
; i THIS MODULE 1S USED To CHECK FOR ANY MINIMUM DATA SEGMENT VIOLATIONS 
; ; PRODUCED BY "CALCTD 
5 INPUTS ARE: FROM (RS), WHICH IS A BUFFER CALLED ‘TDSBLK*, FROM ( 
7 ; WHICH IS A BUFFER CALLED ‘DELTA’. CONSTANTS USED AREY THOSE 
7 : WHICH DETERMINE A LEADING OR TRAILING DATA SEGMENT DEFECT 
8 ; SKIP VIOLATION. 
10 [OUTPUTS ARE: TO (R5), WHICH IS A GUFFER CALLED ‘TDSBLK", TO (R1), WHICH 
11 ; S A BUFFER CALLED "DELTA’, TO (R4), WHICH iS A BUFFER 
1 a CALLED "TOCPY1". 
14 iTals MODULE IS CALLED BY: CALCTD 
15 p RARER A EAA AAE REAR AA AREER AEREREAHAHKEREAAAAKKAKAAKEEARHAReeteAAeeeeeeAAeeeTeee 
16 
17 016400 010537 002214 CHKSEG: MOV RS, TEMPA ;SAVE POINTER TO THIS DEFECT 
18 016404 010046 MOV RO,-(SP) +;PUSH RU ON STACK 
016406 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
19 016410 005000 CLR tRESET RO (SEGMENT LEADING VS TRAILING) 
20 016412 012701 002554 MOV #DELTA,R1 ET POINT: BEGINNING TO DELTA TABLE 
21 016416 013746 002372 MOV DEFSEC.-(SP)  :GET THE # OF DEFECTS IN THIS SECTOR 
22 016422 005745 1$: TST =(R5) ‘BACK UP [HE DEFECT POINTER FOR THIS SECTOR 
23 016424 005316 DEC (SP) ;DONE ALL DEFECTS FOR THIS SECTOR YET ? 
24 016426 003375 BGT 1$ :BR if NO 
25 016430 005726 TST (SP)+ :PESTORE THE STACK 
26 [SETUP THE LEADING MINIMUM DATA SEGMENT VALUES 
27 016432 012737 000042 002376 Moy #34. ,MINSEG ‘MIN, PARTITION FOR DATA SEGMENT 
28 016440 012737 000064 062400 MOV #52. .MAXSEG SMAX. PARTITION FOR DATA SEGMENT 
29 016446 011502 MOV (R5) .R2 [GET BEGINNING OF DEFECT 
30 NOW LOOK TO SEE IF THE BEGINNING OF THE DEFECT 
31 FALLS WITHIN GAP 3, BUT DON'T ALLOW THE DEFECT 
32 ?SKIP TO START ON THE LAST WORD OF 3 
33 016450 020237 002376 CMP R2,MINSEG [1S BEGINNING OF DEFECT IN GAP 3 ? 
34 016454 103425 BLO 5$ ‘BR IF YES 
35 016456 000404 BR 4$ 
36 016460 061502 2$: ADD (R5) ,R2 ZADD BEGINNING OF DEFECT TO CALCULATION 
37 A ‘NOW LOOK TO SEE IF THE BEGINNING OF TH 
33 SDEFECT FALLS WITHIN THE MINIMUM DATA SEGMENT 
39 016462 020237 002376 3$: CMP R2,MINSEG [1S BEGINNING OF DEFECT IN MINIMUM DATA SEGMENT ? 
40 016466 101420 BLOS :BR IF NO 
41 016470 020237 002400 4$: CMP R2,MAXSEG [1S BEGINNING OF DEFECT IN MINIMUM DATA SEGMENT ? 
42 016474 101030 BHI [BR IF NO 
43 016476 005711 TST (R1) ‘WAS THIS DEFECT PREVIOUSLY ADJUSTED ? 
44 016500 001013 BNE 5$ ‘BR IF YES 
45 016502 013746 002400 MOV MAXSEG,-(SP) | :;PUSH MAXSEG ON STACK 
46 016506 160216 SUB R2, (SP) [FIND THE SKEW VALUE AND 
47 016510 061615 ADD (SP), (RS) [CORRECT THIS DEFECT VALUE 
48 016512 012611 MOV (SP)+, (RT) SSAVE THE VALUE | IN, THE AOEETA TABLE 
49 016514 026427 000002 140000 CMP 2(R4) -#NULL ZANY MORE DEFECT 
50 016522 001402 BEQ 5$ R IFN 
31 016524 161164 000002 SUB (R1),2(R4) ‘BE MOVE THE DELTA VALUE FROM NEXT DEFECT 
28 016530 062737 000154 002376 5$: ADD #<DS>,MINSEG zDD A DEFECT SKIP TO THE MIN. SEGMENT VALUE 
52 016536 062737 000154 002400 ADD #<DS>.MAXSEG AND A DEFECT SKIP TO THE MAX. SEGMENT VALUE 
55 016544 022521 CMP (R5)#_,(R1)¢ ‘POP THE DATA AND DELTA FILES 
56 016546 020537 002214 CMP RS, TEMPA [DONE CHECKING DATA SEGMENTS YET ? 


SEQ 0079 
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-SSTTL FILE MERGE MODULE FOR TRACK RECORD 


SS HAHeKHAAAAAAAAAHAHAEHHEKERHHAHHARAKeReHAHeAeeehetaeeateeneaeterteteeterereaeteeee 


STHIS MODULE CREATES THE TRACK RECORD WHICH WILL BECOME THE FORMAT CN AN RPO7, 


[FOR A GIVEN TRACK. 
3* 
S INPUTS ARE: 
[OUTPUTS ARE: 
°f 


INTLEV, PLTRK, TKWCNT, DESCYL, DESTRK, TDSBLK 
HDRBLK*0 = HDRBLK+300 


[THIS MODULE IS CALLED BY: MAKTRK 


SE AAAAAAARAAAAAAKAKARAEHEHEHAHAAAAAAHAAAKARHAKAAReeaeAKeKeReReketeneneteneeeresere 


016610 005001 MERGE: CLR RI 

016612 005002 CLR sR 

O1661% 012705 953400 MOV - #TDSBLK,RS 
016620 105737 002237 STB OINTLEV 
016624 001401 BEQ 

O166¢6 105102 COMB =—R2 

016630 012709 002307 1$: MOV. —s #PLTRK, RO 
016634 11200 MOVB (RO) +, R3 
016636 111004 MOVB (RO) 4 
O16640 012700 032250 MOV —- #HDRALK, RO 
016644 018737 002350 002226 MOV  —sTKWCNT, ENDTAB 
016652 006337 002226 ASL ENDTA 
016656 062737 032250 002226 ADD  #HDRBLK, ENDTAB 
016664 012705 033400 MOV 

016670 052737 150000 002304 BIS 

016676 053704 002244 2s: BIS WR 
016702 053703 002244 BIS  DESTRK.R3 
016706 013720 002394 3$: MOV _—ODESCYL.(RO)* 
016712 105701 TSTB R1 

016714 001404 BEQ 4$ 

016716 010320 MOV —«R3, (ROD* 
016720 005203 INC —R3 

016722 105001 CLRB RI 

016724 000405 BR 5$ 

016726 010420 4$: MOV RG, (ROD* 
016730 902608 INC RG 

16732 109702 TSTB oR? 

016734 001401 BEQ 0 s«SS 

016736 105101 COMB RT 

916740 012520 5$: MOV —(R5)#, (RO* 
016742 12520 MOV (R5)+,(RO)+ 
016744 012520 MOVs (R5) #5 (RO) + 
016746 ah et 44 MOV (R5)+,(RO)+ 
016750 023700 002226 (MP END TAB, RO 
016754 101412 BLOS 6 7$ 

016756 123704 002306 CMPB «SECO, R4 
016762 103002 BHIS 68 

016764 005004 CLR RG 

016766 000743 BR 2$ 

016770 123703 002306 6$:  CMPB —- SEC50,R3 
016774 103344 BHIS 38 

016776 005003 (LR RB 


#TOSBLK,RS >GE 
#B1T15'BIT14:BITI2, DESCYL 
DESTRK,R4 SET 


CLEA" JUNK AS THESE REGISTERS 

ARE _ AGS FOR THE REST OF THE ROUTINE 
sGET_ THE INITIAL TD TABLE ADDRESS 

71S ie puemente SWITCH ON? 


:BR I 
3R2 1S THE FAST MASK 
7 INTERLEAVE MASK 
TOR C 
ap AP eecrmetanin INFO 


3 D 
3GET THE BUFFER LIMIT (6 WRDS X 50. SECTORS) 
sADJUST IT FOR A WORD COUNT (xX 2) 
sAND SET IT 
T THE TD FILE ADDRESS 
;LOG THESE SECTORS AS GOOD 


C 
THE TRACK ADDRESS 


ADDRESS 
sWHICH SECTOR SHOULD BE LOADED? 
sSECTOR FROM R4 
3 SECTOR 
sCLEAR TOGGLE P 
;AND PROGRESS FORWARD 
;LOAD LOW OR NON-INTFRLEAVED SECTOR 
sAND INCREMENT THE SECTOR ADDRESS 
s INTERLEAVE ; 


sNOT I RO 
Hy tg THE ety POINTER 


AST WORD FOR EACH SECTOR 
cTOR ADDRESS FILE. Ai MAX? 
SAND CONTINUE 

1S THIS SECTOR FILE AT MAX? 

RESET R3 = SECTOR 0 


SEQ 0080 


7 
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aH JKAO 
FILE MERGE MODULE FOR TRACK RECORD 
3 017000 000736 BR 2% sAND CONTINUE 
60 017002 042737 150000 002304 7$: 8 gett: rabieiadh * DESCYL ; THESE BITS DON'T APPLY AS AN ADDRESS 


0 Ic 
61 017010 000207 1S AND TAKE THE RETURN 
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SEQ 0082 
REGISTER BUFFER MODULE 


1 .SBTTL REGISTER BUFFER MODULE 
§ POPP RRREBRESAESLLEELLALLAELLAELLELELELE EERE EERE ERE RE ER ERE RE REE REE RRR RRR RAR AREA RASS GS 
i i THIS MODULE CREATES AN IMAGE OF THE RP REGISTERS. IT IS USED FOR DIAGNOSTIC 
; ; PURPOSES SUBSEQUENT TO A DISK COMMAND. 
f [INPUTS ARE: -RPCS1 = RPCS3. 
- [OUTPUTS ARE:  REG*O = REG+52 
7° 
1 STHIS MODULE IS CALLED BY: ERRO 
\% FF AAAAAARERAARAAAERAAAAAAE TEAK ER HEHARAAARAAAHEEHAAAAHEKAAAHAH HHA HHAAAAHAAHHAE Nee 
14 917012 SAVRPR: 
017012 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
017014 010246 MOV R2.=(SP) ::PUSH R2 ON STACK 
017016 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
15 017020 012702 002424 MOV #RPCS1,R2 + AND THe TRANSFER ADDRESSES 
14 017026 012701 002500 MOV #REG RI 3 OF THE SOURCE AND SINK BUFFERS 
17 017030 012703 000024 MOV #20..R “GET THE ITERATION COUNT 
18 017034 013221 1$ MOV a(R2}+,(R1)* | NOW LOG THE DATA 
19 0 005303 DEC R3 3 ONE LESS REGISTER TO GO 
20 0 003375 BGT 1$ F >0, KEEP GOING 
21 0 005737 002416 TST RHTYPE {WHICH CONTROLLER? 
22 0 001402 BEQ 2$ TIF ZERO. IT'S AN RH1i 
23 0 013221 MOV a(R2)+,(R1)*  :LOG RPBA 
$e 5 0 1 2s MOV a(R2)+,(R1)¢ ;LOG RPCS 
0 012603 ; MOV (SP)+,R3 ; :POP STACK INTO R3 
0 012692 MOV (SP) +-R2 POP STACK INTO R2 
0 0 1 MOV (SP)+,R1 +: POP STACK INTO R1 
26 017 0 7 RTS PC sRETURN TO MAIN FOR ERROR REPORT 


4 

5 

6 

7 

8 

9 
10 
+3 

13 
14 

15 

16 

17 017064 
18 017070 
19 017074 
20 017076 
21 017102 
22 017106 
23 017112 
24 017116 
25 017122 
26 017124 
27 017126 
28 017130 
29 017132 
30 017134 
31 017136 
32 
33 017142 
34 
35 017144 
36 017150 
37 017154 
38 

39 017162 


WNONOONOOCCOWOWSO 
NONE ENR FE SONNE NO 


014037 
014137 
012737 


000207 


ooooo oo 
Owow Ow 
OWNS ror 
ofwvun rr 
SOoOOwoe Ww 
Aoocor® NO 


002264 


002270 


002272 
000010 002264 
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-SSTTL HEADER VERIFY MODULE 


PAPC PPI it iii iii iii iii titi iiitititiiitiiii Ty 
ituts MODULE DOES THE HEADER AND S.D. VERIFICATION FOR A VERIFY MODE OF 
OPERATION. hh papel soa ittSe, Us 


j INPUTS ARE: HDRBLK+0 - eenn<t0e.. SECSO, INTLEV, RTYCNT, TDWRD3 = TDWRD6 
SOUTPUTS ARE:  DEFCNT, ERRMSK, DEF1 = DEF4, LINBUF+O = LINBUF +300. 

* 

sTHIS MODULE IS CALLED BY: MAIN 


se MPH HRHAHHHHHAHEAHEKHH EHH HHHeHKeRHeReHKeHeteteneeeteteteteteneneeteneteteeeere 


VERIFY: MOV #HDRBLK ,RO :GET POINTER Mh ee OF EXPECTED DATA 
aoe + tata ah ot al RIVE ? 
JSR PC, CHABUF TRE-SHUFFLE THE DATA FOR A LINEAR COMPARE 
MOV #LINBUF ,RO :GET POINTER TO sh pee OF EXPECTED DATA 
1$ MOVB SEC50,R 34 OF SECTORS ON TRACK 
MOV FTDSBLK. R1 GET POINTER TO BEGINNING OF ae cElveS DATA 
2$ MOV #<HDR=2>,R4 F WORDS IN HEADER TO VERIF 
3$ ine ee de :DOES, EXPECTED DATA MATCH RECEIVED DATA ? 
44s or ; DONE COMPARING THIS SECTOR YET ? 
pee Be :DONE, COMPARING THIS TRACK YET ? 
CLR ERRMSK :RESET NO ERROR alate AND SETUP CONITION CODE 
IN PSW FOR RETUR 
RTS PC 
4$: MOV ~(RO) ,EXPCTD SAVE THE EXPECTED ot. 
MOV -(R1) ,RECVED SAND THE RECEIVED DATA 
MOV #10, ERRMSK ;LOG *FORMAT VERIFY ERROR® STATUS AND 
ave 7 SETUP CONDITION CCDE IN PSW FOR RETURN 


SEQ 0083 


7 
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READ BAD SECTOR FILE (DEC 144 FILE) MODULE 


1 .SBTTL READ BAD SECTOR FILE (DEC 144 FILE) MODULE 
¢ *S@ReeeeeeeReeeeeeeeeReeeeeeeeeeeeeetaeaaeekeneeeaeszeeaakeneeeteneneeeaeeneneeaeeeeee 
4 THIS MODULE DOES A READ OF THE LAST USER CYLINDER/TRACK. IF THE READ IS 
5 TUNSUCCESSFUL, (OPI = 1), THE PROGRAM ASSUMES THAT DEC STANDARD 144 WAS NEVER 
6, sCREATED, AND MARKS STATUS AS SUCH. IF DATA IS FOUND FROM ONE OF SEVERAL 
4 i SECTORS, KNOWN AS THE USER SECTOR FILE, THE INFORMATION IS STORED FOR A LATER 
9 te 
19 S INPUTS ARE: USRBUF, RDDAT, RTYCNT 
% OUTPUTS ARE:  SUPRSS, DESCYL, DESTRK, BADDR, FUNCTN, NEGWRD, ERRMAX, CREATE 
*@ 
14 :THIS MODULE IS CALLED BY: MAIN 
15 PL eeeeenererererererrerrreereteseneaneeanaeeneseneteraneenenaaeneneeneeeeeTeTe 
16 
17 017164 012737 177777 002242 RDBSF: MOV #-1,SUPRSS ;SUPRESS THE Enon MESSAGE OUTPUT 
18 017172 010046 MOV RO,-(SP) :;PUSH RO 0 
017174 010146 MOV -(SP + :PUSH R1 ON Ht 
017176 013746 002304 MOV DESCYL,=(SP) +:PUSH DESCYL ON STACK 
017202 013746 002244 MOV DESTRK,=(SP) :;PUSH DESTRK ON STACK 
017206 013746 002370 MOV FUNCTN,=(SP) ::PUSH FUNCTN ON STA 
19 017212 005000 i CLR RO GET # USR BLOCKS DEC 166 FILE 
20 017214 012737 001165 002304 MOV #629. .DESCYL ; GET THE LAST CYLINDER, 
21 017222 112737 000012 002244 MOVB «#10, :THE FIRST USER SECTOR AND 
22 017230 112737 000037 002245 MOVB 931. DESTREST STHE LAST TRACK 
23 017236 012737 031250 002230 MOV MUSRBUF ,BADDR :GET POINTER TO BEGINNING OF USR BSF BUFFER 
24 017244 012737 000071 002370 MOV gRODAl FUNCTN :SET UP FOR A READ DATA COMMAND 
25 017252 062737 000002 002244 1$: ADD DESTRK [THE USER BAD SECTOR FILE 
26 017260 012737 000400 002362 2%: MOV 1586. NEGURD sWORD COUNT FOR THE ENTIRE SECTOR 
27 017266 004737 010166 JSR PC DRIVER TEXECUTE THE OPERATION 
28 017272 004737 012446 JSR PC RETRY :SEE IF WE HAD ANY ERRORS 
29 017276 000404 BR 3$ SRETURN HERE IF EXCEEDED RETRY LIMIT 
30 ELSE RETURN HERE 
31 017300 005737 002266 TST RTYCNT :DID WE HAVE AN ERROR ? 
32 017304 001365 BNE 23 R IF YES 
33 017306 000422 BR 4$ ‘GOOD READ!!! 
35 017310 005200 3$: INC RO sINCREMENT TO NEXT COPY OF USR BSF 
36 017312 020027 000004 CMP RO, #4 [DID WE TRY READING ALL COPIES OF USR BSF ? 
37 017316 103755 BLO 1$ ‘BR IF NO 
38 PRINT '** WARNING ** CORRUPT BAD SECTOR FILE, 
39 ; WILL BE INITIALIZED" 
40 917320 012746 006016 MOV #WARN,=(SP) 
017324 012746 005327 MOV BFRMTOS, sn (SPD 
017330 012746 000002 MOV #2,-(SP 
017334 010600 MOV SP.RO 
017336 104417 TRAP CSPNTE 
017340 062706 000006 ADD #6,S5P 
41 017344 012700 031250 MOV #USRBUF ,RO :GET THE START OF THE USER DEC144 BSF 
42 017350 004737 017664 JSR PC, CRE 144 [CREATE THE USR BSF BUFFER 
63 ‘NOW THAT WE HAVE A GOOD READ 0 
44 S INITIALIZED BUFFER, LETS SEE r IME DATA 
4 
46 017356 4$: MOV #USRBUF ,R1 3GE1 POINTER "9 ABEGINNING OF USER BSF 
47 017360 CMP (R1)¢, #105 :LOOK FOR THE P 
48 017364 BNE 3$ NO MATCH, REURITE rae “USER &.S.F 


H 7 
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READ BAD SECTOR FILE (DEC 144 FILE) MODULE 
49 017366 022127 000105 cmp (R1)+,#105 $1008 FOR THE PACK S.N. 
50 017372 001346 BNE 3g NO MATCH, REWRITE THE B.S 
51 017374 005721 TST (R1)¢ ‘THIS WORD ALWAYS 0! 
3g 017376 001344 BNE 3$ il NOT, FILE IS BAD 
§3 017400 005721 TST (R1)¢ $ THIS AN ALIGNMENT PACK ? 
54 017402 001542 BNE 3$ i; YES 
§5 017406 004737 012540 JSR PC,RESET RESET ANY ERO ORS 
56 017410 012637 002370 MOV (SP) +, FUNCTN POP STACK INTO FUNCTN 
017414 012637 002244 MOV (SP)+,DESTRK tt pop STACK INTO DESTRK 
017420 012637 002304 MOV (SP)*-DESCYL | ::POP STACK INTO DESCYL 
017424 012601 MOV (SP)¢,R1 3zPOP STACK INTO R1 
017486 012600 MOV (5P)+-RO ::POP STACK INTO RO 
57 017430 005937 002242 CLR SUPRSS TALLOW ERROR MESSAGE TO BE OUTPUT 
58 017434 000207 RTS PC sRETURN TO MAIN 


7 
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1 -SBTTL WRITE SAD SECTOR FILE (DEC 144 FILE) MODULE 
¢ "REAR RRReKeeTKeAHeeeeeeeeReResteeaaaeeeeeaaeeaeeeteteetenetenzeteeeeaeaeeeeee 
4 {THIS MODULE CREATES AND RESTORES (WRITES) THE BAD SECTOR FILE (DEC 144 FILE) 
2 [ON THE LAST USER CYLINDER/TRACK OF THE DISK. 
:é 
. zs INPUTS ARE: WRIDAT, WRDAT, MFGBUF, USRBUF, CREATE 
10 sOUTPUTS ARE: DESEML. DESTRK, FUNCTN, ERRFNC, MFG144, BADDR, NEGWRD, ERRMSK, 
11 8 
¢ sTHIS MODULE IS CALLED BY: MAIN 
1 sete eeaneereaeeeeeterererereerereeneteeeenateneenenetenenenetetanenenateneteses 
14 
15 017436 WRIBSF: 
017436 013746 002304 MOV DESCYL,=-(SP) szPUSH DESCYL ON STACK 
017442 013746 002244 MOV DESTRK,-(SP) +:PUSH DESTRK ON STACK 
16 017446 012737 001165 002304 MOV #629. ,DESCYL sLOAD THE LAST CYLINDER, 
17 017454 112737 000037 002245 MOVB #31.,DESTRK*+1 ;THE LAST TRACK 
18 017462 105037 002244 CLRB DESTRK AND SECTOR 0 
19 017466 012737 000061 002370 MOV MWRTDAT,FUNCTN :SET UP FOR A WRITE DATA FUNCTION 
20 017474 012737 005435 002254 MOV MWRDAT,ERRFNC :SAVE FUNCTION FOR ERROR ROUTINE 
21 017502 012700 030250 MOV #MF GBUF .RO [GET THE START OF THE RAS AC TURING DEC144 BSF 
22 017506 004737 017664 JSR PC, CRE 144 [CREATE THE MFG BSF BUFFER 
23 017512 012737 030250 002230 1$: MOV #MFGBUF,BADDR :GET POINTER TO BEGINNING OF MFG BSF BUFFER 
24 017520 012737 000400 002362 MOV #256. ,NEGWRD SAND THE SECTOR WORD COUN 
25 017526 004737 010166 JSR 4 DRIVER sEXECUTE THE OPERATION 
26 017532 004737 012446 JSR PC‘RETR v sSEE IF WE HAD ANY ERRORS 
$e 017536 000403 ie 2$ dot ge Ad ie EACEEDED RETRY LIMIT 
27 017540 005737 002266 TST RTYCNT [DID WE HAVE AN ERROR ? 
30 017544 001362 BNE 1$ ‘BR IF res 
31 017546 105237 002244 23: INCB DESTRK [NEXT SECTOR 
32 017552 123727 002244 000012 CMPB DESTRK,#10. :DONE WITH MFG FILE YET ? 
33 017560 103754 BLO 1$ ‘BR If N 
34 sSTART WRITTING USER 16 & 18 BIT B 
35 017562 012737 031250 002230 3$: MOV ouSROUr spneee :GET POINTER TO BEGINNING OF USR HH BUFFER 
36 017570 012737 000400 002362 4$: MOV #256. ,NEGWRD ‘WORD COUNT FOR SECTOR 
37 017576 004737 010166 JSR PC, DaiveR SEXECUTE THE OPERATION 
38 017602 004737 012446 JSR PC.RET RY sSEE IF WE HAD ANY ERRORS 
4 017606 000403 Bh 5$ ZRETURN WERE a ENCEEDED RETRY LIMIT 
41 017610 005737 002266 TST RTYCNT [DID ue HAVE AN ERROR ? 
42 917614 901 383 BNE 4% ‘BR IF YES 
4? 017616 105¢ 7 002244 5$: INCB DESTRK NEXT SECTOR 
44 ptr ees 123737 002244 002306 CMPB DESTRK,SECSO sDONE WITH USR FILE YET ? 
45 017630 101010 BHI sYES, TAKE RETURN 
46 017632 622737 030250 002230 CMP @MFGBUF,BADDR ;DID WE JUST WRITE A 18 BIT USER FILE ? 
47 017640 001750 BEQ 3$ BR IF YES 
48 017642 012737 030250 602230 MOV #MFGBUF,BADDR  :GET pointer TO i etTy as OF MFG BSF BUFFER 
49 017650 000747 be 4% [G0 WRITE A 188 ILE 
50 017652 6$: 
017652 012637 002244 MOV (SP) +, DESTRK 37POP STACK INTO DESTRK 
017656 012637 002304 MOV (SP)¢, DESCYL :7PCP STACK INTO DESCYL 
51 017662 000207 RTS PC 


ie 
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1 
2 MRRP eSeCeHeHeeeheeHeeeeekeaeeeaeeeeeteteeeeteneeteeeeeerteeeaeeeeere 
3 t THIS MODULE CREATES THE MANUFACTURES OR USER SECTION OF THE BAD SECTOR FILE 
: s(DEC 144 FILE), WHICH IS WRITTEN TO THE LAST USER CYLINDER/TRACK ON THE DISK. 
g ‘INPUTS ARE: RO = POINTER TO BEGINNING OUTPUT BUFFER AREA 
8 OUTPUTS ARE:  MFGBUF OR USRBUF 

@ 

10 ZTHIS MODULE IS CALLED BY: RDBSF, WRIBSF 

11 ps MAAK eeaeeeeeeeetereeeerererereneeteneHeteteeeeteeeHeeeeeeerereeeerereeererere 

1 

ig 017664 010901 CRE166: MOV :GET THE START OF THE BUFFER 

14 017666 062701 001000 ADD peoeG. #2>,R1 [SAVE END OF BUFFER IN R 

15 017672 012720 000105 MOV #105, (RO)* [CREATE A HDA SERIAL NUMBER" 

16 017676 012720 000105 MOV #105. (RO)¢ [TO SATISFY ALL OPERATING SYSTEMS 

17 017702 005020 CLR (RO)+ ‘THIRD WORD ALWAYS = 0! 

18 017704 005020 CLR (RO)+ [FOURTH WORD = 0 (<> ALIGNMENT PACK) 

19 017706 012720 177777 i$: MOV #-1, (RO) :NULL THE BAD SECTOR INE ORMAT ION 

20 017712 020001 CMP RO,R1 LE DONE? 

21017716 «103774 BLO 1$ ‘NOT IF RO < SAID NUMBER 

3¢ 017716 000207 RTS PC SOK, TAKE RETURN 

24 st eeeeereenereeeeeetereeeeeterenetetenateeeeeteneeeeeeteteneneseeeteeeneereeese 

25 THIS MODULE CONTROLS SPIRAL READS OR WRITES. IT INCREMENTS THE DESIRED TRACK 

26 TADDRESS UNTIL IT 1S READY TO OVERFLOW INTO AN ILLEGAL ADDRESS. WHEN THIS IS 

27 SREADY TO HAPPEN, THE DESIRED TRACK IS RESET TO 'MINTRK® AND THE DESIRED 

28 ZCYLINDER IS INCREMENTED. THE CALLING MODULE MUST DETECT WHEN THE DESIRED 

29 : CYLINDER HAS OVERFLOWED. 

31 VARIABLES: DESCYL AND DESTRK ARE AFFECTED BY THIS MODULE. ALSO, THIS 

32 ; MODULE IS AFFECTED BY THE VALUE IN ‘MAXCYL'’ WHICH REPRESENTS 

HH 5 THE LAST CYLINDER ADDRESS ON THE DRIVE. 

35 S INPUTS ARE: MINTRK, MAXTRK, MAXCYL 

37 SOUTPUTS ARE: DESCYL, DESTRK 

-@ 

39 STHIS MODULE IS CALLED 6Y: MAIN 

40 es, teteeetareeaneereeeeeererererereteaneneatanateneterenereneneaeteneteeeeeeretes 

41 

42 017720 105237 002245 SPIRAL: INCB  DESTRK+1 i INCREMENT 10 NEXT TRACK ADDRESS 

43 017724 123737 002245 002212 CMPB ss éDESSTRK*1,MAXTRK : TRACK COUNT Al 

44 917732 101405 BLOS ~=s:«MS :BR IF 

45 017734 113737 002210 002245 MOVB MINTRK,DESTRK+1 CRESTORE Onin TRACK ADDRESS 

46 017742 005237 002304 INC DESCYL SINCREMENT TO NEXT CYLINDER ADDRESS 

47 017746 000207 1$: RTS PC TEXIT 


_-. 
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C7RIK 
WRITE BAD SECTOR FILE (DEC 144 FILE) MODULE 
2 3 RRA eeeeeeeeeeaeeesteaeeakenaaeetzaenaetetetceaneeeeceaeeeere 
3 [THIS MODULE IS USED TO CONTROL THE COUNTING OF DEFECTS ENCOUNTERED ON THE 
¢ :RPO7 HDA, 
*@ 
5 s INPUTS ARE: FROM TOWRD3 = TDWRD6 
: sOUTPUTS ARE: Picea) DEF4, TRACK AND DEFCNT (DEPENDENT UPON THE # OF DEFECTS 
10 ie 
11 sCALL 
ig 3 JSR PC, CNTIDEF 
1 se ekeeeereeeakeeererererereeereeeKeneaeeeaeAaenaneenenAeeeneneenaarereneeeeeeee 
14 
15 017750 CNTDEF: 
017750 010146 MOV R1,-(SP) 3zPUSH R1 ON STACK 
017752 010246 MOV Ree mts + PUSH R2 ON STACK 
017754 010346 MOV R3.- sPUSH R35 ON STACK 
16 017756 023727 030204 140000 CMP TDURDS, pul DEFECT INFORMATION ? 
17 017764 001451 BEQ N 
18 017766 005737 030204 TST TDWRD3 at tr VALID DATA ? 
19 017772 001446 BEQ 3$ [BR IF NO 
20 017774 012702 000004 MOV #4 ,R2 TFOUR RECORDS 
21 020000 012701 030204 MOV #TOWRD3,R1 ‘INPUT FROM HERE 
4 020004 012703 002274 MOV #DEF1,RS ‘OUTPUT COUNT GOES HERE 
25 020010 022127 140000 1$: CMP (R1)¢,#NULL ‘DATA OR UN rye 
24 020014 001434 BEQ 2$ [IF MATCH, MUSED 
25 020016 005237 002246 INC DEFCNT : INCLUDE fuls IN THE OVERALL COUNT 
26 020022 005723 TST (R3)¢ ‘BUMP THE POIN TER 
27 020024 005302 DEC R2 [ONE LESS ENTRY 0 GO 
28 020026 003370 BGT 1$ 31 NOT ZERO, WE’ TRE NOT DONE 
29 020030 005737 002200 TST LIST [1S LIST OPTION ENABLED ? 
30 020034 001024 BNE 2$ :1F NOT ZERO, YES 
31 020036 013701 030200 MOV TDWRD1,R1 sGET THE FIRST WORD OF TD (CYLINDER ADDRESS) 
32 020042 042701 170000 BIC #170000,R1 i STRIP THE STATUS BITS 
33 020046 013702 030202 MOV 1D DWR D2,R2 iGET THE SECOND WORD OF THE TD (TRK/SEC ADRS) 
34 020052 105002 CLRB sR ‘GET RID OF LOW BYTE (EXTRACT TRACK) AND 
35 020054 000302 SWAB sR ;MAKE IT THE LOW BYTE DATA. 
36 sPRINT *#® WARNING *®* CYL XXKX., TRK XX. 
37 : HAS 4 DEFECTS INC TD RECORD 
38 020056 010246 MOV R2,-(SP) 
020060 010146 MOV R1.-(SP) 
020062 012746 006016 MOV #WARN, (SP) 
920066 012746 005064 MOV #FRMT61,-(SP) 
020072 012746 000004 MOV #4,-(SP5 
020076 010600 MOV SP.RO 
020100 104417 TRAP CSPNTF 
020102 062706 000012 ADD #12,SP 
39 020106 005243 38: INC -(R$) sINCLUDE THIS IN # DEFECTS/TRACK 
020110 012603 MOV (SP)+,R3 2b Op STACK INTO R3 
020112 815006 MOV (SP)+,R2 zPOP STACK INTO R2 
020114 12601 MOV (5e)¢,R1 * POP STACK INTO R1 
41 020116 000207 RTS PL :jPOP. TO THE USER 
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WRITE BAD SECTOR 


4 

5 

; 020120 pera 001167 002304 
8 pe ig8 005037 002244 

9 020132 piety 030200 

10 020136 013711 002504 

11 020142 052721 030000 

\¢ 020146 013711 poe ess 

15 020152 052721 900377 

14 020156 012702 000004 

15 020162 pi eret 140000 

16 020166 005302 

17 020170 003374 

18 020172 004737 020222 

\ 020176 000207 

21 020200 105237 002245 

22 020204 123727 002245 000037 
25 020212 101747 

24 020214 105337 002245 

25 020220 000207 


L 
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7 


SHAH AAAAEHAHTHAHAAEATAHAAEEAHAHAHARARHAERAHRARAETAAAAAAAeAAHeAeeeeRAeeeeTeeeeee 


ituts MODULE I$ USED ONLY TO RE-WRITE TD'S ON TH 
"TD'S ARE NECES 
PROPERLY EXECU 


FETWO: sg 
1$: MOV 


2$: MOV 


SECOND FE CYLINDER. THESE 


een IN-ORDER FOR THE INTERNAL RPO7 MICRODIAGNOSTICS TO 


a oc eseuuccesscesseccoccesoccocosesorenvsescecerevetenseseqoqcosseroresecncsees 


#631, DESCYL :GET THE SECOND FE CYLINDER ADDRESS 
DESTRK SRESET THE TRA CK/SECTOR DRESS 
#TDURDI R1 [SET UP A BUFFER POINTER 
aa (R1) “FIRST WORD O 
mitt Bit l2, (R1 s+ s1T°S A TD = IN 16 BiT MODE 
RACK /° SECTOR ADDRESS 
Real oh SECTOR ADDRESS = 
#4 ,R A RECORD ITERATION COUNTER 
#NULL, (R1)* $ DATA FOR THIS TD (LEAVE IT NULL) 
R2 TONE LESS RECORD TO GO 
2$ :1F NOT ZERO, WE'RE NOT DON E 
PC ,WRITID ;ATTEMPT TO WRITE THIS RECORD 
PC SRETURN HERE IF EXCEEDED RETRY LIMIT 
SOTHERWISE RETURN HERE 
DESTRK+1 [NEXT TRACK ian 
DESTRK+1,#31. LAST TRACK YET? 
1$ :TAKE QBRANCH IF NOT 
DESTRK+1 ET RID OF THE OVERF LOW ADDRESS 
PC STAKE THE USER RETU 


SEQ 0089 


CZ 
wR 


CZRJ 
WRIT 


K 
E 
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4 
5 
6 
? 
8 
9 
10 
+3 
‘ 
14 
15 
16 
17 
18 
19 
: 
$2 020222 
020222 
020224 
020226 
23 020232 
24 020236 
25 020242 
26 020250 
27 020256 
28 020262 
29 020264 
30 020266 
31 020270 
32 020272 
33 020274 
34 020302 
35 020310 
36 020316 
37 020324 
38 020332 
39 020336 
rs 020342 
42 020344 
43 020350 
44 020352 
45 020360 
020360 
Beh ece 
020366 
“6 020370 
48 020372 
49 020400 


50 
51 020402 


a eo at a 


BSS SS SSS SSSS= Feo Ceses 
ome = -ONONWNON— 


062766 
012637 
0 


000207 


052737 
000735 


052777 


002244 


100000 


040000 


030200 
002244 


000006 


030200 


162046 


-SBTTL WRITE TRACK DESCRIPTOR MODULE 


SRRAHHAHAAAAAAAHAAAAAATAEAAEAAAHAAAEHEHEAAERHEHAREREEEHEREReAHeTHAeeetenereeesese 


iTHIs RODULE SIZES THE TD DATA - a betect us IF THE TD ITSELF MUST BE 


:REL OCA 
; FOUND. 


“t DUE TO THE PRESENCE 0 


se ti's tig gt IF HEADER # 


Oe CT Ww 
must BE RELOCATED DUE TO A 


HERE THE TD WOULD Py BE 
DEFECT 


;BETWEEN THE TD FILE AND THE FIRST HEADER. MASK BITS ARE SET TO INF ORM THE 
:DEVICE EITHER. OF THESE CONDITIONS OCCUR. 
} INPUTS ARE: TOWRD1, TOWRDS, TDOWRDS, TDOLMTS, WRITD, TOBCNT, RTYCNT 


ZouTPuTS ARE: 
os 


CALL 


WRITTD: 


1$: 


23: 


3$: 


4$: 


5$: 


THIS MODULE IS MAINLY CALLED By: 


FARRAR ERA AERA AREA AERA AARAEEEAAAAEARAHAREHREHAAEKERARAAARAReEAHeAeeAKeAeetetene 


DESTRK, RTYCNT, 


PC ,WRITTD 


RO,-(SP) 
R1,-(SP 


(R1) *ANULL 
(R1),(RO)+ 
(R1),(RO)+ 
4% 


#WRTTD, FUNCTN 
#TDWRD{ ,BADDR 
aMSURTD, ERRFNC 


#CMOD 


TDBCNT .NEGWRD 
PC DRIVER 


PC,RETRY 
3$ 


RTYCNT 
#2,6(SP) 


4 ll 
(SP)+,R1 


(SP)+, RO 
PC 


#81115, TDWRD1 
2$ 


#MTD ,aRPOF 


WRD3, 3GET 
rh AE TowRD1 
7,DESTR 


FUNCTN, BADDR, ERRFNC, RPOF, NEGWRD, ERRMSK 


stmt WRITE TD SUBROUTINE 
sRETURN HERE IF EXCEEDED RETRY LIMIT 
SELSE RETURN HERE, NO ERROR 


INPUTD, FETWO, MAIN 


3;PUSH RO ON arate 
3 ¢PUSH R1 ON STA 


=R D & HDRO MOVED BITS 
LOAD T tHe” ETE Ton” ADDRESS BITS 
SANT DEFECT SKIPS ON THIS TRACK ? 


BR I 

sWAS TD MOVED ? 

7BR IF YES 

WAS ah MOVED ? 

SET UP FOR A_WRITE TD FUNCTION 

:GET POINTER TO BEGINNING OF TD S<CORD BUFFER 
7SAVE FUNCTION FOR ERROR ROUTINE 
SET CO "oO MODIFIER BIT 

36 WORD TRANSFER 

2 SEND COMMAND  * Sa 

7SEE IF WE HAD ANY ERRORS 

:RETURN a IF EXCEEDED RETRY LIMIT 
sELSE RETURN H 

4 HAVE AN ERROR ? 

sADJUST FOR GOOD RETURN 


fi8 4 STACK iad DESTRK 

P STACK INTO R1 
SOP ptaee INTO RO 
;RETURN 


sMARK HDR O MOVE 
EXECUTE FUNCTION NOW 


sMARK TD MOVED IN OFFSET REG 


SEQ 0090 


SEQ 0091 


? 
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Ss 
WRITE TRACK DESCRIPTOR MODULE 


— 

w we 

uw ae 

ive = 

w _ 
c- a a) 
4 — « 
‘e a os 
= 2 Fe 
= ja — 

Faw 
” c> = 
cad a =? us 
= w , o 
are > 
< : wore zo 
sz w en 
ve 2aa. 4 
uw wo wow OF 
egy Dae a@r> aw 
Qa a w Oo w 
an <teouwce wu 
—-~ SPOezuO Dw 
”“" witeuwO JIG 
z bo oa mw <« 
—— YVew Fa >t 
VY weuU>e et 
Ow wk ZzZze — 
we. Wed OO wi 
>w Oon4f ~J od 
° ww =x 

—Gurwrew oO 

WO xXwu qwadcee- 
eocZwa--adqcZz w 
-O 200 aw ad 
=u 2 sD rule 
“x =—w 20 — a 
e>- Se Ze YO 
<2 dw jwwdiaoedt5 
F< OvOu ctOvI3BOO 


Boodo2 $2060 
2 
6 


NOK —- OVO VOCOCOUW 
Soooo--oOooo 


OOs OWOONMOON~. 
3333333553535 
euNcucunucueunccnn 
SSSSSSSSSOCCO 


oR 


(SP)¢ 


65 020460 022601 
66 020462 003704 


MMTMOP- WOOK UM T 
AAnnnnDDooo 


67 020464 000742 
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C 
READ TRACK DESCRIPTOR 


1 .SBTTL READ TRACK DESCRIPTOR MODULE 
¢ HARARE AKKAAKAKTeKATAATAAKAHKAHKAAAKRAARAAARAARARARARARAEEARARARHRERERAEAEHARAARARAAREAEEE 
4 ‘THIS MODULE DOES THE SETUP TO READ A TRACK DESCRIPTOR. RETRY, IF NECESSARY, 
? 1S DONE FOR ANY DETECTED ERRORS. 
4 j INPUTS ARE: RDTD, MSRDTD, TDWRD1, TDBCNT, DESTRK 
mf OUTPUTS ARE: FUNCTN, ERRFNC, ERRMSK, DESTRK, RPOF, BADDR, NEGWRD, TDCPY1 
11 $CALL 
2 : JSR PC,READTD zCALL READ TD SUBROUTINE 
1 3000 eeeee ;RETURN HERE IF EXCEEDED RETRY LIMIT 
\% 3 00 eeeeee TELSE RETURN HERE, NO ERROR 
;* 
16 THIS MODULE JS MAINLY CALLED BY: INPUTD, TDSCAN, UPDSCR, MAIN 
17 FF RAAARAAAAARAAA EE AAAAEAR TEAR AAA ARAAAAAAARAAAAAAAAARAAARAAARAKRAAAAAAEREAREREAEET 
18 
19 020466 READTD: 
020466 013746 002370 MOV FUNCTN,=(SP) z7PUSH FUNCTN ON STACK 
020472 010046 MOv RO,-(SP) ::PUSH RO ON STACK 
020474 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
20 020476 012737 000075 002370 MOV #RDTD,FUNCTN S]SSUE THE READ TD COMMAND 
21 026504 012/37 005425 002254 MOV #MSRDTD,ERRFNC ;SAVE FUNCTION FOR ERROR ROUTINE 
22 020512 012700 030200 1$: MOV #TDWRD1.RO :GET POINTER TO BEGINNING OF TD BUFFER 
23 020516 013701 002314 MOV TOBCNT,R1 :GET BUFFER SIZE 
24 020522 005020 2$: CLR (RO) + INITIALIZE THE BUFFER 
25 020524 005301 DEC R1 ZONE LESS ENTRY TO GO 
26 020526 003375 BGT 2$ IF NOT ZERO, DO AGAIN 
27 020530 013746 002244 MOV DESTRK,=-(SP) 3ZPUSH DESTRK ON STACK 
28 020534 112737 000377 002244 MOVB #377, DESTRK sSET LOW BYTE OF ADDRESS 
29 020542 052777 100000 161706 8 #CMOD , ARPOF :SET COMMAND MODIFIER BIT 
30 020550 012757 030200 002250 MOV #TDWRD1,BADOR :GET POINTER TO BEGINNING OF TD RECORD BUFFER 
31 020556 013737 002314 002362 MOV TOBCNT -NEGURD 36 WORD T FER 
32 020564 004737 010166 JSR »DRIVER ‘NOW DO THE COMMAND 
33 020570 012637 002244 MOV (SP) +, DESTRK ::POP S$ ACK INTO DESTRK 
34 020574 004737 012446 JSR »RETRY sSEE IF WE H Y ERRORS 
35 020600 000453 BR 7$ :RETURN HERE. F “EXCEEDED RETRY LIMIT 
36 i OTHERWISE RETURN HERE 
37 020602 005737 002266 TST RTYCNT [DID WE HAVE AN ERROR ? 
38 020606 001341 BNE 1$ :BR IF YES 
39 ‘READ WAS GOOD, $O NOW COMPARE EXPECTED 
40 sAND RECIEVED DATA 
41 920610 912700 930200 MOV #TDURDI SR GET POINTER TO BEGINNING OF TD BUFFER 
42 020614 013737 002304 030214 MOV DESCY mi OW PREPARE TO CHECK THE CORRECTNESS OF pte DATA 
43 020622 052737 030000 030214 BIS #B1T1 Biti2, ‘ches THIS IS 16 BIT MODE, AND A TD RECORD 
44 020630 051037 030214 BIS (RO), TOCP sSET REMAINDER OF EXPECTED BITS 
45 020634 013737 002244 030216 MOV DgSTaK TD Te ePy2 :SET UP FOR THE SECOND WORD OF THE TD 
46 020642 052737 000377 030216 BIS PY2 sSET LOW BYTE OF ADDR 
47 020650 022037 030214 CMP (RO), TDeP YA CYLINDER ADDRESS MATCH ? 
48 020654 001003 BNE :BR IF NO 
49 020656 022037 030216 CMP (RO)+, TOCPY2 sTRACK/SECTOR ADDRESS MATCH ? 
50 020662 001404 BEQ :BR IF YES 
51 020664 012737 000011 002264 3$: MOV #11, ERRMSK :LOG ‘TD ADDRESS INCORRECT ERROR' STATUS 
2¢ 020672 000405 BR 5$ :TRY READ AGAIN 
54 020674 005720 4$: 1S! (RO) + z1S IT VALID DATA ? 
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ACK DESCRIPTOR MODULE 

020676 90101 BNE 6$ ;BR IF YES 

020700 Bie 35 poo TE 002264 MOV #12, ERRMSK sLOG ‘TD DATA INCORRECT ERROR’ STATUS 
0 ON8 05737 00217 5$: TST SCANR sARE WE DOING DISK SCAN ? 

02071 B51 988 BNE 7$ 3BR IF YES 

020714 004737 012752 JSR PC ERRORS REPORT THE ERROR 

020720 000403 BR 7$ 

Sates 062766 000002 000006 gf: ADD #2,6(SP) sADJUST FOR GOOD RETURN 

020730 012601 MOV (SP)+,R1 33POP STACK INTO R1 

020732 012600 MOV (SP)+,RO :sPOP STACK INTO RO 

020734 012637 002370 MOV (SP)+*,FUNCTN 33POP_ STACK iNTO FUNCTIN 

020740 000207 RTS PC 20K, END SUB AND RETURN TO MAIN 


~v 


$ 
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015014 
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177776 
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140000 
002344 


002344 


002370 


07 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 45 
MODULE 


-SBTTL LIST TD(S) MODULE 


POPE I IIIT TTI iri iii iii irri iii iii till iii iii list iiiiiiiiiiiiiii. 
itwis MODULE IS USED TO LIST THE TD(S) THAT HAVE DEFECTS FOUND DURING 
: THE LIST OPERATION. 


; INPUTS ARE: 


SouTPUTS ARE: 
*@ 


CALL 


: JSR 


FROM A BUFFER CALLED ‘TDWRD1° 
PRESENTED TO THE USER ON THE CONSOLE PRINTER 


PC,LISTDS 


CALL ROUTINE 


see eeeeeraneeeenenereeeeeeeereeeteaneeeeeneneeateeneaAnenteeneteeerenetenetetesr 


LISTDS: 


2$: CMP 


3$: MOV 


4$: CMP 


FUNCTN,=(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
TDURDS. #NULL 
#TODEF TEXT 
ag DR 

ay ol vent 
PC, TDDUMP 
LISHDR 
#RDHD,FUNCTN 
PC ,MAKTRK 

8$ 

BADDR,R1 
TKWCNT,R3 


1)4#,<R1)+ 
) ,#NULL 


(R 
(R 
3$ 
(R 
(R 
7$ 
-2 
($ 
3¢ 
($ 
($ 
#F 
#3 
P 
$ 


1 
1 
1 
( 
Pp 
S 
Pp 
P 
R 
p 


CAA)» NULL 


3;PUSH FUNCTN ON STACK 
3sPUSH R1 ON STACK 

;;PUSH as ie ON STACK 

3;PUSH R35 ON STACK 

‘ore gy OANY DEFECTS TO LIST ? 


;LOAD TEXT WITH ADDRESS OF te wy 
HD i eae IN DEFECT SECTORS ? 


SLOAD TEXT WITH ADDRESS OF MESSAGE 
?GO DUMP THE TRACK DESCRIPTOR 


‘BR IF NO. IN DEFECT SECTORS ? 


sLOAD A_READ HEADER ee 

[NOW EXECUTE THE COMM 

RETURN a IF EXCEEDED RETRY LIMIT 
ZELSE RETURN HERE 

GET POINTER TO BEGINNING OF HEADER BLOCK 
:GET WORD COUNT FOR TRACK 


GET OVER HEADER WORDS 
ZAR E Hat ANY DEFECTS 


1 AND 
TO LI 
GET OVER HEADER WORDS 3 AND 
:GET OVER HEADER WORDS 5 AND 6 


ESAVE SECOND WO WORD OF THE TD (TRK/SEC ADRS) 
3GET RID OF HI BYTE ae todd SECTOR) 
;PRINT TD WORD#2, SEC DAT 


2 
ST IN THIS SECTOR ? 
4 


GET MAXIMUM # OF sperects 
il i MJLL DATA 


R If ves 
{PRINT THE DEFECT DATA 


SEQ 0094 


SEQ 0095 
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-SBTTL NEW DEFECT LIST DUMP MODULE 


*RMeeaeeeeaerekaereeeeeeeeeerereeeeaeeeeneanentetetatetenentenateteteteneeeeeeeere 


{THIS § MODULE 1S USED TO PRINT ANY NEW DEFECT DATA FOUND DURING A SCAN 


FROM A BUFFER CA: LED "BADDR’ 
PRESENTED TO THE USER ON THE CONSOLE PRINTER 


se teeeeeeereaareeerereereerereneneReenennaneaaananenananenanenenenawaeranaeeenes 


;OPERA 
; INPUTS ARE: 

joutPuTS ARE: 

I CALL 

; PC,NEWLST 

NEWLST: MOV BADDR,R3 
ST (R3) 
BEQ S$ 
INCB = SCANIT 
CLR =(SP) 
MOVB _—s SCANIT, (SP) 
MOV (SP)+,=(SP) 
MOV we RMT S2. sn (SP) 
MOV #2,-( 
MOV S 0° 
TRAP — CSPNTF 
ADD #6,SP 
MOV #FRMT35,<(SP) 
MOV #1,-(SP) 
MOV SP-R 
TRAP — CSPNTF 
ADD #4,S5P 

1$: TST (R$) 
BEQ t 3 
ADD #<6*2>,R3 
MOV R3,-(SP) 
MOV #-1,-(SP) 
MOV -(R3) (SP) 
MOV -(R3) (SP) 
MOV -(R3) ,=(SP) 
MOV -(R3) =(SP) 
MOV -(R3) .=(S5P) 
MOV (SP) ,<(SP) 
CLRB s- 3( SP) 
MOV (SP) ,-(SP) 
CLRB ss. 2( SP) 
SWAB (SP) 
MOV =(R3) ,=(SP) 
MOV (SP) ,-(SP) 
BIC #170000,2(SP) 
MOV (SP)+,=(SP) 
MOV (SP) + .=(SP) 
MOV (SP) ¢,=(SP) 


GET THE Eee oo 
ie es EFECTS ? 


ATION COUNT 
NUMBER FOR TYPEOUT 


UNT 
) DURING SCAN ITERATION XXX., 


zPRINT ‘WORDA1 (CYL) WORD#2 (TRK) (SEC) WORD#S 
; WORD#4 WORD#5 WORD#6" 


7 ANY a NEW DEFECTS ? 


[BR IF NO 
>MOVE TO THE - OF THIS NEW DEFECT TD LIST 
+:PUSH R3 ON STACK 

3;PUSH #-1 ON STACK 

7:PUSH -(R3) ON STACK 


:;PUSH -(R3) ON STACK 
3:PUSH -(R3) ON STACK 
:;PUSH -(R3) ON STACK 
::PUSH =-(R3) - STACK 
3SA ve 2ND TD WORD 


2GET RID OF HI BYTE (EXTRACT SECTOR) 
SAVE 2ND TD WORD 
:GET RID OF LOW BYTE (EXTRACT TRACK) AND 
{MAKE IT THE PR OF DATA. 


TD WORD 
3GET RID OF THE STATUS BITS 
SPRINT TD WORD#1, CYL, TD WORD#2 & TRK DATA 


SEQ 0096 
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NEW DEFECT LIST DUMP MODULE 
021426 012646 MOV (SP)+*,=(SP) 
021430 012646 MOV (SP), =(SP) 
021432 015746 904530 MOV #F RMT $6, =(SP) 
021436 013746 00006 MOV #6,<(5P)5 
Oelaae 010600 MOV SP RO 
021464 104417 TRAP CSPNTF 
021446 062706 000016 ADD #16,SP 
43021452 021627 140000 2$: CMP (SP), #NULL s1S IT NULL DATA ? 
44 021456 001412 BEQ 3$ :17 MATCH, YES 
45 [PRINT THE DATA 
46 021460 012646 MOV (SP)+,<(SP) 
021462 01g746 003624 MOV #FRMTIG,=(SP) 
021466 012746 000002 MOV #2,-(SP5 
021472 010600 MOV P’RO 
021474 104417 TRAP CSPNTF 
021476 062706 000006 ADD #6,SP 
47 021502 000411 BR 4$ yAND GO-0N 
48 021504 3$: [PRINT * 140000 ° 
49 021504 012646 MOV (SP)+,=(SP) 
021506 012746 003635 MOV #FRMTIS,-(SP) 
021512 012746 000002 MOV #2,-(SP) 
021516 010600 MOV SP-RO 
021520 104417 TRAP CSPNTF 
021522 062706 000006 ADD #6,SP 
50 021526 021627 177777 4$: CMP (SP) ,#=1 :1S THIS TERMINATOR ? 
51 021532 001347 BNE 2$ SBR IF 
32 021534 005726 TST (SP) ; RESTORE STACK 
3CR=L 
54 021536 012746 90¢ 542 MOV @CRLF ,-(SP) 
021542 012746 980 )01 MOV #1,-(§P) 
021546 010600 MOV SP.RO 
021550 104417 TRAP CSPNTF 
021552 062706 001004 ADD #4,SP 
55 021556 012603 MOV (SP)+,R3 ;GET BACK POINTER TO TD LIST 
56 021560 005723 TST (R3)¢ :GET OVER INTERNAL STATUS WORD IN TD LIST 
57 021562 020327 1°7656 CMP R3,#ENDBUF sAT END OF BUFFER? 
58 021566 101663 BLOS 1$ : IF NO 
59 021570 000207 5$: RTS PC 


“0 
on 


H 8 
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} -S8TTL TD SCAN MODULE 

3 *‘@eeeteaeeeeeeeeeeectereaeeneeneeeeeneeeeneeeeneneeeneeekheecaaeeeteeeaeeneeeaeaeeeeeeeneee ee 
¢ ifn1s MODULE IS USED BY THE SCANNER TO DETERMINE IF A TD RECORD IS CORRUFTED. 

6 ‘ourPuTS ARE: TO (R1)*, WHICH IS A BUFFER CALLED ‘DEFBUF* AND TO 

‘ : NEWCNT AND ERRTTL 

9 SCALL 

10 ; JSR PC, TOSCAN 

11 se teeerecercececrerceceerererrereraaaaerenaeeneraerasaneenererenerenaaeeeesereee 
1 

ig 021572 TDSCAN: 

021572 013746 002262 MOV ERRTTIL,=(SP) : gPUSH ERRTTL ON STACK 

14 021576 004737 020466 JSR PC,READTD ;CALL THE READ TD SUBROUTINE 

15 021602 000240 NOP ‘RETURN HERE IF EXCEEDED RETRY LIMIT 

16 TELSE RETURN HERE, NO ERROR 

17 021606 163716 002262 1$: SUB ERRTTL, (SP? GET # OF ERRORS betecten DURING READ TD 

18 021610 005416 NES (SP) MAKE NUMBER POSIT 

19 021612 022627 090002 CMP (SP)+,#2 :D1D we GET 2 MORE ERRORS AFTER THE ORIGINAL ? 
20 021616 003003 BGT 2$ VES 
21 021620 062716 000002 ADD #2, (SP) SBODIEY ADDRESS TO SKIP OVER BRANCH ON RETURN 
$¢ 021624 000437 fied 4$ ;AND TAKE RETUR 
24 021626 005237 002250 23: INC NEWCNT ;ADD ONE TO THE TOTAL 1 ap © sae 

25 021632 013711 002304 MOV DESCYL,(R1) ‘START FORMING THE BUFFER 

26 021636 052721 030000 BIS @BIT13'BIT12,(R1)*; THIS IS THE FIRST TD WORD. 

27 021642 013711 002244 MOV DESTRK,(R1) sFORM THE SECOND WORD 
28 021646 052721 000377 BIS #377, (R1)¢ + OF THE TD 
29 021652 032761 000002 000010 BIT wBiti,10¢R1) SCID we TRY TO MOVE THE TD ALREADY ? 

30 021660 001407 BEQ 3$ ‘BR NO 

31 021662 005037 002242 CLR SUPRSS + 4 ERROR MESSAGE T0 BE OuTPUT 

32 021666 012737 000001 002264 MOV #1 ERRMSK ‘LOG 'TD NOT READABLE ERROR® STATUS 

33 021674 024141 CMP =(R1),-(R13 :BACK UP THE POINTER 

3 021676 000412 8R 4$ SAND TAKE THE RETURN 
36 021700 012721 000166 3$: MOV #<Gi*<DS/2>>, (R1)¢ 2GET THE coors FOR TD MOVED, WORD #3 
37 0217046 012721 140000 MOV MNULL,(R1)¢ sNULL TD WORD @ 

38 021710 012721 140000 MOV @NULL, (R1)¢ 1D WORD #5, 

39 021714 012721 140000 MOV MNULL, (R1)¢ ;AND TD WORD 
40 021720 052721 000002 BIS @BIT1,(R1)¢ SMARK TD MOVED. "IN THE INTERNAL STATUS 

41 021724 000207 43: RTS PC 
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1 .SBTTL HEADER SCAN MODULE 
¢ -@eeneeeeeceneerceeeeecaeeeeerereeeeaneeeneeeeeeeeneeeeeeeeeeeeeeeeneeeeeeeeeeeeseee 
‘ leis cope 1S USED TO DETERMINE IF A HEADER IS CORRUPTED WHEN INVOKED BY THE 
6 
7 FOuTPUTS ARE: DEFECT 1S MOVED TO (R1)*, WHICH IS A BUFFER CALLED "DEFBUF* OR 
. ; TO A 2 WORD BUFFER CALLED *TMPBSF’, wi CH IS THEN MOVED TO 
» 3 (R2)*, WHICH IS A BUFFER CALLED ‘USRBUF’ 
-@ 
1 = CALL 
12 : JSR PC, HDSCAN 
1 se, teeeeeerrereeeerereeeeereterererenenetereneneneeeeeneetereserereseseneeserese 
14 
15 021726 012737 000073 002370 HDSCAN: MOV @RDHD,FUNCTN sSETUP FOR READ-HEADER FUNCTION 
16 021734 012737 035660 002230 MOV #DBUFF ,BADDR 3GET POINTER TO BEGINNING OF DATA BUFFER 
17 021742 012737 005523 002254 MOV @RHDATA,ERRE NC ;SAVE FUNCTION FOR ERROR ROUTINE 
18 021750 013746 002262 MOV ERRTTL,-(SP) t;PUSH ERRTTL ON STACK 
19 021754 05¢777 100000 160474 1$: BIS #CMOD , aRPOF :SET COMMAND MODIFIER BIT 
20 021762 013737 002350 002362 MOV TKWCONT,NEGWRD SET TRACK WORD gl Ount (6 WRDS * 50. SECTORS) 
21 021770 004737 010166 JSR PC,DRIVER :d0 THE TRANSF 
22 021774 004737 012446 JSR PC RETRY *SEE IF WE HAD a ERRORS 
23 022000 000403 Ba 2$ SRETURN HERE IF EXCEEDED RETRY LIMIT 
24 SELSE RETURN HERE 
25 022002 005737 002266 1ST RTYCNT :D1D we HAVE AN ERROR ? 
26 022006 001362 BNE 1$ R YES 
27 022010 163716 002262 23: SuB ERRTTL, (SP) :GET ’ ERRORS DETECTED DURING READ 
28 022014 005416 NEG (SP) MAKE NUMBER POSITIVE 
29 022016 022627 000002 CMP (SP) +, #2 :DID WE GET 2 MORE ERRORS AFTER THE ORIGINAL ? 
30 022022 003003 BGT if F YES 
31 022024 062716 000092 ADD #2, (SP) MODIFY ADDRESS TO SKIP OVER BRANCH ON RETURN 
32 022030 000472 BR 126 STAKE THE RETURN 
34 022032 0C5237 002250 3$: INC NEWCNT : ADD ONE TO THE TOTAL DEFECT COUNT 
35 022036 0y5037 002364 CLR ECCWRD USE DATA WORD 0 AS DEFECT TO MOVE HEADER 
36 022042 004737 022712 JSR PCF INDSEC 160 IND THE SECTOR IN WHICH THE NEW DEFECT 
38 022066 001403 BEQ 4$ BR IF SECTOR O 
39 022050 004737 014372 JSR PC ,RELTIVE sCALCULATE THE DEFECT ame RELATIVE TO INDEX 
40 022054 000417 BR ne SINSERT DEFECT INTO T 
42 022056 032737 100000 030200 4$: BIT #BITI5S,TOWRDT IS HOR 0 {oven ALREADY ? 
43 022064 001004 BNE ¥ 
44 922066 012737 000243 002364 MOV #<G1#1D+G2*<D$/2>>, EC CUR 5 :GET THE CONSTANT FOR HDR O MOVED 
4s 022074 000407 BR 6$ TINSERT DEFECT INTO TD 
47 022676 032737 040000 030200 S$: BIT aBITt4, TDWRD1 = 1S THE TD MOVED ALREADY ? 
48 022104 001010 BNE 7$ R y 5 
49 022106 012737 000166 002364 MOV #<G1+<DS/2>>, ECCWRD THE CONSTANT FOR TD MOVED 
30 022114 004737 014522 6$: JSR PC, INSER ; INSERT befect INTO T 
$2 022120 005737 030244 1ST TMPBSF :D0 ve HAVE ROOM IN THE TD RECORD ? 
53 022124 100410 BM! TBR IF YES 
54 022126 113737 002366 030246 7%: MOVB SECADD, THPBSF*2 :SAVE THE BAD SECTOR AND 
58 022134 004737 011122 JSR PC LODBSF TLOAD THE USR BSF BUFFER 
56 022140 005061 000014 CLR 14(R1) TRESET THE INTERNAL STATUS 
57 022144 000624 Hh 135 


J 
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58 

59 pee iss 012704 690006 &$: MOV #¢ RG 3GET # OF ENTRIES IN TD RECORD 

60 022152 012703 03020 MOV #TOWRD1,R3 7GET POINTER TO BEGINNING OF TD BUFFER 
61 0g 156 012321 98: MOV (R3)+,(R1)¢ [PUT NEW DEFECT INTO BUFFER 

6¢ 022160 005304 DEC RG DONE ALL ENTRIES YET ? 

6 8S 162 003375 BGT 9$ BR IF NO 

64 022164 032737 100000 030200 BIT @BIT1S,TDWRD1 :1S HDR O MOVED ? 

65 peste Bors0¢ BEG 10$ BR IF 

66 022174 052711 000004 BIS #BiT2,(R1) 7MARK HDR O MOVED, IN THE INTERNAL STATUS 
67 022200 032737 040000 030200 10$: BIT #B1T14,TDWRDI 31S THE TD MOVED ? 

68 022206 001402 BEQ 11$ ‘BR IF N 

69 022210 Bernt 590002 BIS @Biti,(R1) sMARK TD MOVED, IN THE INTERNAL STATUS 
70 022216 005721 11$: 1ST (RI)6 TGET OVER THE INTERNAL STATUS WORD 

71 022216 000207 128: RTS PC 


76 


NO AE WN 2D ODNOA NEW OC OODNOUEWN “OOD UEWN SHO ODNAUEWN “OVO ONOUSWN 


PPMP BBE EEE EE AWWA NAIR RNIN NINN Se 2 OO 


000406 
005037 
3 


002242 
000017 


002242 
000017 


002312 
000002 


002312 


002510 


002264 


002152 
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-SSTTL DATA SCAN MODULE 


iTHIS MODULE IS USED TO FIND ANY DATA fi DEFECTS. IT USES A FULL TRACK 
:BUFFER FOR DATA TRANSFERS, CALLED ‘DBUFF 


SourPuTS ARE: DEFECT 1S atoveD TO (R1)*, WHICH IS A BUFFER CALLED “DEF BUF * oR 
; A 2 WORD BUFFER CALLED ‘TMPBSF*, WHICH IS THEN MOVED TO 

: {hope ay 1S A BUFFER CALLED ‘uSRBUF 

CALL 

; JSR PC .DASCAN 


Le eeeanearenarerererereeereereneneraneneteraneaaeenanereneneaenaeeeaTeneseaees 


DASCAN: MOV #BGNPAT,PATTRN i START WITH BEGINNING DATA PATTERN 
1$: JSR PC,GETPAT [GET A PATTERN AND SETUP ‘PATTRN' TO CONTAIN 
[THE NEXT DATA PATTERN TO BE : D. 
2$: CLR R3 i CLEAR WRITE CHECK ERROR COUNTER 
MOV #TDSBLK,R4 [GET POINTER TO BEGINNING OF DEFECT BUFFER 
MOV @WRTDAT.FUNCTN :SETUP FOR A WRITE DATA 
MOV #URDAT, ERRFNC i SAVE FUNCTION FOR ERROR ROU TIN NE 
MOV #DBUFF BAD POINTER TO BEGINNING OF DATA BUFFER 
MOV #<256. 250. : *veguie -SET FOR A FULL TRACK DATA TRANSFER 
JSR PC, DRIVER :D0 THE T TRANSFER | 
JSR PC RETRY [SEE IF WE HAD ANY ERR 
BR 35° RETURN HERE IF EXCEEDED SRETRY LIMIT 
TELSE RETURN HER 
TST RTYCNT !DID WE HAVE AN ERROR ? 
BNE 2$ :BR IF YES 
BR 4$ [GOOD WRITE!!! 
3$: CLR SUPRSS SALLOW ERROR MESSAGE TO BE OUTPU 
MOV #17, ERRMSK SLOG "UNRE COVERABLE ERROR busine. PACK SCAN’ STATUS 
BR 15$ [TAKE THE BAD RETUR 
4$: MOV #WCKD,FUNCTN  ;SET UP FOR A WRITE-CHECK COMMAND 
MOV #WCKDAT.ERRFNC SAVE FUNCTION FOR ERROR ROUT INE 
MOV #256. «30.2 >,NEGWRD ;FULL TRACK DATA TRANSFER 
JSR PC, DRIVE :D0 THE WRITE CHECK NOW 
JSR PC: perny [SEE IF WE HAD ANY ERRORS 
BR 6$° RETURN HERE IF EXCEEDED RETRY LIMIT 
ELSE RETURN HERE 
TST RTYCNT =DID WE nave AN ERROR ? 
BEQ $ ‘BR IF NO 
5$: BIT MCE ,REG*10 [1S WCE SET ? 
BEQ 4$ :BR IF NO 
BR 8$ :GO FIND BAD WORD IN SECTOR 
6$: CLR SUPRSS sALLOW ERROR MESSAGE TO BE OUTP 
MOV #17, ERRMSK 3L0G *UNRE COVERABLE ERROR pURING. PACK SCAN" STATUS 
BR 15$ :TAKE THE BAD RETURN 
7$: CMP PATTRN, #ENDPAT : DONE Wit ALL PATTERNS YET ? 
L 
ADD #2, (SP) < OF TURN WITH NO ERROR (THE TRACK Ok) 
BR 15¢ STAKE THE GOOD RETURN 


SEQ 0101 
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58 022434 005037 002266 8S: CLR RTYCNT 
39 022440 $0298) 02 ra JSR PC, F INDWRD 

61 022444 004737 022712 JSR PC, FINDSEC 

8 0224650 006737 014372 JSR PC RELTIVE 

64 02 013714 002364 MOV ECCWRD, (R4) 

65 022460 004737 022744 JSR PC, TOLER 

67 022464 022737 000020 002264 CMP #20 ERRMSK 

68 022472 001457 BEQ 15$ 

69 02 474 005205 INC R3 

70 022476 020327 000002 CMP R382 

71 022502 003711 BLE 4 

es 022504 023737 002364 002340 CMP ECCWRD, TDLMTS+2 
73 022512 003005 BGT 

74 022514 013737 002340 002364 MOV TOLMTS*2,ECCWRD 
75 022522 005237 002364 INC ECCWRD 

76 022526 005237 002250 9$: INC NEWCNT 

a 022532 004737 014522 JSR PC, INSERT 

79 022536 005737 030244 10$: ST TMPBSF 

BO 022542 100406 BMI 

81 022544 113737 002366 030246 MOVB SECADD, TMPBSF +2 
B2 022552 004737 011122 JSR PC LODBSF 

85 022556 000425 BR 15$ 

85 022560 012704 000006 11$: MOV #6 RG 

86 022564 012703 030200 MOV #TDWRD1,R3 

87 022570 012321 12$: MOV (R3)+,(R1)+ 

BB 022572 005304 DEC RG 

89 022574 003375 BGT 12% 

90 022576 032737 100000 030200 BIT #BIT15, TDWRD1 
91 022604 001402 BEQ 13$ 

92 022606 052711 000004 BIS #B1T2,(R1) 

93 022612 032737 040000 030200 13%: BIT #B1T14, TOWRD1 
94 022620 001402 BEQ 14$ 

95 022622 052711 000002 BIS #B1T1,(R1) 

96 022626 052721 000200 14$: BIS #BIT7,(R1)+ 

97 022632 000207 15$: RTS PC 


SEQ 0102 


RESET RETRY COUNT TO 0 
3GO FIND THE BAD WORD WITHIN THE SECTOR OF THE 


sNEW DEFECT. 

he 7 SECTOR IN WHICH THE NEW DEFECT 
sCALCULATE THE DEFECT VALUE RELATIVE TO INDEX 
LOG THE NEW DEFECT IN DEFECT BUFFER 

SEE IF WCE*S ARE WITHIN TOLERANCE AND UPDATE 
POINTER TO DEFECT TABLE IN RG. 

epi pee WCE'S OCCUR ? 


sDID WE GET 2 MORE ERRORS AFTER THE ORIGINAL ? 
WILL BEGINNING OF DEFECT BE IN GAP 2 ? 

‘GET UPPER LIMIT FOR HDR 0 MOVED AND 

ADD ONE TO 


6 D N o 
ADD ONE TO THE TOTAL DEFECT COUNT 
INSERT DEFECT INTO TD 


:D0 WE WAVE ROOM IN THE TD RECORD ? 
SSAVE THE BAD SECTOR AND 


;LOAD THE USR BSF BUFFER 
;TAKE THE RETURN 


m 
nm 


sGET # OF ENTRIES IN TD RECORD 

GET POINTER TO BEGINNING OF TD BUFFER 
;PUT THE NEW DEFECT INTO BUFFER 

s;DONE ALL ENTRIES YET ? 


:BR IF NO 
.3MARK HDR 0 MOVED, IN THE INTERNAL STATUS 


[1S THE TD MOVED ? 
“BR IF NO 


3 " 

:MARK TD MOVED, IN THE INTERNAL STATUS 

sMARK DATA AREA DEFECT, IN THE INTERNAL STATUS 
; TAKE RETURN 


M 
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1 
5 MARBRARAALALELALALALALALELESEREEE SEE EEE SEES EEE ECE ECE EEE EEE EEE EOE CECE CE EEE aS 
ituis MODULE Is USED BY "DASCAN’ TO IDENTIEY AND LOCATE ANY DEFECT | INF ORMAT ION 
é SFOUND DURING A SCAN OPERATION. THE MODULE DETERMINES THE SECTOR ADDRESS OF 
> 3 THE NEW DEFECT AND THE WORD COUNT GIThIy THE SECTOR OF THE NEw DEF fect 
4 } INPUTS ARE: REG+2 (RPWC) 
2 j OUTPUTS ARE: ECCWRD (WORD COUNT IN SECTOR) 
11 CALL 
i ; JSR PC,F INDWRD :CALL THE ROUTINE 
4 SEAT AA RARER A AH AARAREAA REAR AARAAAATHHHAARERERAAHRERARAReKeteneeeeneneeetetes 
14 
15 022634 013746 002502 FINDWRD: MOV REG#+2,-(SP) :PUT RPWC CONTENTS ON THE STACK 
16 022640 062716 031000 ADD #<256.*50.>, (SP) ;AND CALCULATE THE # OF WORDS XFERD 
17 022644 005316 DEC (SP) :SUBTRACT 1 FOR AN ODD OR EVEN WORD 
18 022646 005737 002416 TST RHTYPE ;WAS THE CONTROLLER AN RH70 ? 
19 022652 001407 BEO 5 R IF 
20 022654 162716 000002 SUB #2, (SP) SUBTRACT 2 FOR A DOUBLE WORD 
21 022660 032737 004000 002552 BIT #BIT11,REG+52 WAS WCE ON AN EVEN WORD 
22 022666 001401 BEQ 1$ IF 0 NO 
23 022670 005316 DEC (SP) FsuetRact | 1 FOR AN EVEN WORD 
24 022672 162716 000400 1$: SUB #256. , (SP) DID WE FIND THE BAD SECTOR YET ? 
25 022676 002375 BGE 1$ TBR IF NO 
26 022700 062716 000400 ADD #256., (SP) :THIS IS THE BAD WORD IN THE BAD SECTOR 
27 022704 012637 002364 MOV (SP)+,ECCWRD § :SAVE WORD COUNT IN SECTOR 
38 022710 000207 RTS PC ‘AND TAKE THE RETURN 
30 settee eeeeaeeeeeeeteeeeereretenen RARERARARHREARARARARARARHREARRAEREKRARARAERAEAEEHREREe 
31 {THIS MODULE IS USED TO FIND THE SECTOR ADDRESS OF THE NEWLY FOUND DEFECT 
32 [WHICH WAS DETECTED DURING THE SCAN OPERATION. 
ie 
$< s INPUTS ARE: REG+6 (RPDA) 
3¢ SOUTPUTS ARE:  SECADD (SECTOR IN ERROR) 
°* 
38 3 CALL 
ip : JSR PC, FINDSEC sCALL THE ROUTINE 
41 THIS MODULE IS MAINLY CALLED BY: HDSCAN, DASCAN : 
42 Ff AAA AAAARAAAAAEAEAKE AAA AAA RATA AAAAHERAAAARAAAAAAATREHRERERAAAHeteReeeaeeeetenenes 
43 
44 022712 005037 002366 FINDSEC: CLR SECADD zINIT SECTOR ADDRESS COUNT 
45 022716 113737 §05806 002366 MOVB  REG+6,SECADD LOAD. SECTOR ADDRESS IN ERROR 
46 022724 001004 BNE 1$ F ERROR NOT IN LAST SECTOR, ELSE 
47 022726 113737 002306 002366 MOVB  SEC50,SECADD oF TU FOR ERROR IN LAST SECTOR 
48 022734 000402 BR 2$ 
50 022736 005337 002366 1$: DEC SECADD ZADJUST RPDA TO ACCOUNT FOR ERROR 
51 022742 000207 2$: RTS PC SAND TAKE THE RETURN 
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DATA SCAN MOD 
1 MRBARARRRAREAELALSLALELLELEL ELE SEE LES EEE EEE EEE REE EEE EERE EERE EERE EEE EERE EERE EELS 
¢ t THIS MODULE IS USED TO DETERMINE IF THE DATA FOUND DURING A SCAN OPERATION 

:1S DATA WHICH OCCURS WITH CONSISTENT RESULTS. IF THE Dar DATA BUFFER CONTAINS 
4 :DATA FOR ANY ONE TRACK WHICH DEVIATES MORE THAN +/= 3 WORDS, THE FAILURE IS 
5 : CONSIDERED TO BE A RANDOM WRITE CHECK ERROR, THE DEFECT is NOT LOGGED IN THE 
6 D RECORD AND THE USER IS NOTIFIED OF THE PROBLEM. 
g j INPUTS ARE: FROM A BUFFER CALLED ‘TDSBLK* 
10 i ouTPUTS ARE:  ECCWRD (AVERAGE DEFECT), ERRMSK (IF ERROR DETECTED) 
12 tCALL 
1 3 JSR PC, TOLER :CALL ROUTINE 
14 RARER AAAAAAREE RAAT EAAAAA AAA AAAAAERAAAAAARAAARAERKARERARAAAARAAE HAAR Aee Hee eeee 
15 
16 022744 012700 023050 TOLER: MOV #5$,R0 :GET POINTER TO HI VALUE FOR WCE'S 
17 022750 022704 033400 CMP #TDSBLK RG [1S THIS THE FIRST WCE DETECTED ? 
18 022754 001003 BNE $ :BR IF NO 
19 022756 011410 MOV (R4), (RO) :SAVE THIS DEFECT AS HI AND 
20 022760 011460 000002 MOV (R4) .2(RO) :L0 VALUES. 
21 022764 021410 1$: CMP (R4). (RO) iS THIS VALUE HIGHER THAN PREVIOUS HI ? 
32 022766 002402 BLT 2$ 
23 022770 011410 MOV (R4), (RO) <OAVE THIS AS HI VALUE NOW 
24 022772 000405 BR 3$ 
25 022774 005720 2$: TST (RO)+ :SET POINTER TO LO VALUE 
26 022776 021410 CMP (R4), (RO) 31S THIS VALUE LOWER THAN PREVIOUS LO ? 
27 023000 003002 BGT 3$ FN 
28 023002 011410 MOV (R4), (RO) {SAV — THIS AS LO VALUE NOW 
29 023004 005740 TST =(ROS ‘SET POINTER TO HI VALUE 
30 023006 012046 3$: MOV (RO)+,=(SP) :GET HI VALUE AND 
31 023010 011646 MOV (SP) ,<(SP) iSA VE 1. 
32 023012 061016 ADD (RO), (SP) TOTAL THE HI AND Lo VALUES AND 
33 023014 006216 ASR (SP) ‘DETERMINE THE AVERA 
34 023016 012637 002364 MOV (SP)+,ECCWRD § :SAVE AVERAGE VALUE AS DEFECTIVE SPOT 
35 023022 161016 | SUB (RO), (SP) [GET DIFFERENCE FROM LO TO HI VALUES 
36 023024 022627 000006 CMP (SP)+, #6 ZARE HI/LO VALUES WITHIN =-+#3 WORDS ? 
37 023030 003405 BLE 4$ R IF YES 
38 023032 005037 002242 CLR SUPRSS ne ERROR MESSAGE TO BE Agutput 
39 023036 012737 000020 002264 MOV #20, ERRMSK ‘LOG "RANDOM WCE ERROR® STATUS 
40 023044 005724 4$: TST (R4)+ ‘UPDATE WCE TABLE POINTER 
4} 023046 000207 RTS PC SAND RETURN 
43 023050 000000 S$: .WORD 0 zHI VALUE GOES HERE 
44 923052 000000 6$: “WORD 0 [LO VALUE GOES HERE 


8 9 
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SCAN MODULE 
1 
§ MAR RRBRARASZAZALALALALLELEE EERE RARE REE EEE REE EERE REE EEE REE EE EEE REE EE EERE EEE EEE RSG 
; itais MODULE PROVIDES TEST PATTERNS TO BE USED DURING THE SCANNER PROCESS. 
5 j INPUTS ARE: FROM BGNPAT = ENDPAT (BEGIN PATTERN THRU END PA*‘TERN) 
? ;OUTPUTS ARE: TO A BUFFER CALLED ‘DBUFF® 
9 tCALL 
10 ; JSR PC,GETPAT 
11 PITITITITITIIIITI TTT TTTT TTT ii iii ti itiiit tii itiiii iti ii tits 
1 
i 023054 GETPAT: 
023054 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
023056 Biosee MOV . ngectees : PUSH R2 ON STACK 
023060 919 46 MOV R3,-(5P) +:PUSH R3 ON STACK 
14 023062 013703 002312 MOV PATTRN,R3 iGET THE NEW PATIE 
15 023066 012702 031000 MOV #<256.%50.>,R2 GET A WORD/TRACK COUNT 
16 023072 012701 035660 MOV #DBUFF,R1 sGET THE READ/WRITC BUFFER 
17 023076 012321 1$: MOV (R3)4,(R1)¢ sWRITE FIRST WORD OF PATTERN 
18 023100 011321 MOV -(R3), (R1)4 [NOW WRITE THE SECOND WORD 
19 023102 005743 F TST =(R3) 7BA CK UP THE INPUT POINTER 
20 023104 62702 000002 SUB #2,R2 [REDUCE THE [TERATION COUNT 
21 023110 00 372 BGT 1$ F > 0, KEEP GOING 
22 023112 02232 CMP (R3)4#,(R3)¢ ‘UPDATE TO NEXT 2 Ltd PATTERN 
23 023114 010337 002312 MOV R3,PATTRN i STORE THE mt PATTERN 
24 023120 012603 MOV ($P)+,R3 POP STACK INTO R3 
023122 012602 MOV (SP)+,R2 ‘pop STACK INTO R2 
023124 012601 MOV (SP)+,R1 7;POP STACK INTO R1 
25 023126 000207 RTS PC sNOW RETURN TO CALLER 


¢ 9 
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DATA SCAN MODULE 
1 
4 *HRRHHRAHeKASHCAAHTeCEHHK FARAH aeeeeHeeaeeeaeaeeeeteaneeeaeaaeezeseeeee 
; iiais MODULE CREATES ABSOLUTE DEFECT DATA, RELATIVE TO INDEX. 
3 j INPUTS ARE: FROM A BUFFER CALLED ‘TDwRD1" 
f OUTPUTS ARE:  ECCWRD 
9 :CALL 
10 JSR PC,F INDBAD 
11 pReeeeeeaeeneneeeeeceeeereneeeeeteeneneneeeneereeeeereenceerenereerereeererete 
1 
ig 023130 F INDBAD: 
923130 010146 MOV R1,<(SP) ::PUSH R1 ON STACK 
0231 2 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 
14 0231346 012701 030204 MOV #TOWRD3,R1 ‘GET THE FIRST DEFECT 
15 023140 01 702 000004 MOV a ‘AND THE RECORD SIZE 
16 223146 062137 002364 1$: ADD CRT) * .ECCURD ZADD THE LIST OF DEFECT TO THE NEW DEFECT 
17 023150 003302 DEC Re ONE LESS” RECORD ENTRY 
18 023152 003374 BGT 1 [OF >0, KEEP GOING 
19 023154 012701 000155 MOV #<G14TD+G2>,R1  :THE # OF WORDS BEFORE HDR 0 
20 023160 062701 000517 ADD #<HDR+G3+DATA+G4>,R1 sADD THE BVERHEAD FOR A SECTOR 
21 023164 005037 002366 CLR SECADD ;DEFAULT=SECTOR 0 
22 023170 020137 002364 CMP R1,ECCWRD SNOW SCALE T HE VALUES 
23 023174 103006 BHIS 38° :1F Ri 1S GREATER. SECTOR 0 IS BAD 
24 023176 003237 002366 2$: INC SECADD NEXT SECTOR ADDR RESS x 
25 023202 162737 000517 002364 SUB A<HORYGB*DATA*GGS ECCR REDUCE THE REMAINING WORD COUNT . 
26 023210 100372 BPL 2$ <0, ue VE FOUND THE BAD SEC 
27 023212 3$: 
023212 012602 MOV (SP)+,R2 33POP STACK INTO R2 
023214 012601 MOV (SP)+,R1 “POP STACK INTO R1 
28 023216 000207 RTS PC ‘RETURN TO CALLER 
30 FEARAAAAAAAAAAAAAHAEEEAAAEATAEAAEARAAAAAAAAKHHRAAAKAARKAHAAeKAHAKAHAAAeeeKeneeeeese 
31 ‘THIS MODULE OUTPUTS DATA TO THE NEW DEFECT BUFFER FOR EVENTUAL TD REWRITE OR 
32 11 PRODUCES OUTPUT TO THE BAD SECTGR FILE WHEN A TD IS FOUND TO CONTAIN 4 
34 : 
a5 SOUTPUPS ARE: 10 (R2)¢, S BUFFER CALLED "USRBUF* OR TO (R4)+, A BUFFER 
36 ; CALLED ‘OBUFF 
37 it 
38 7 CALL 
39 ; JSR PC,UPDSCR 
40 PL eeeeeereeakeaceerereneeeteeeteneteaneteaneReRateneneneteaeetaseneeenareeeeeee 
41 
42 023220 UPDSCR: 
023220 010146 MOV R1,-(SP) :7PUSH R1 ON STACK 
023222 010346 MOV R3.-(SP)- +:PUSH R3 ON STACK 
43 023224 004737 020466 JSR PC -READTD sCALL THE READ TD SUBROUTINE 
44 023230 000401 BR 1$ RETURN HERE IF EXCEEDED RETRY LIMIT 
45 023232 000402 | BR 2$ TELSE RETURN HERE, NO ERROR 
46 023234 004737: 025412 18: JSR PC,DESTD [GET DESIRED TD, BECAUSE WE FAILED THE READ 
023240 013746 002364 MOV ECCWRD,-(SP) -PUSH ECCWRD ON STACK 
48 023244 004737 014522 JSR PC, INSERT t INSERT THE DEFECT IN ID 
49 023250 012637 002364 MOV (SP) +, ECCWRD :POP STACK INTO ECCWRD 
50 023254 005737 030244 TST TMPBSF ‘bo WE HAVE ROOM IN THE TD RECORD ? 
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BMI :BR IF YES 
JSR PCF INDBAD [FIND THE BAD SECTOR 
030246 MOVB SECADD,TMPBSF*2 :SAVE THE BAD SECTOR AND 
JSR PC. LODBSF SLOAD THE USR BSF BUFFER 
BR 5 
3$: INC NEWCNT ;ADD ONE TO THE TOTAL DEFECT COUNT 
MOV #6,R3 [GET # OF ENTRIES IN TD RECORD 
MOV #TOWRD1,R1 [GET POINTER TO BEGINNING OF TD BUFFER 
4$: | MOV (R1)#, (RG) sPUT THE NEW DEFECT INTO BurFE 
DEC R3 “DONE ALL ENTRIES YET ? 
BGT 4$ ‘BR IF NO 
. BIS #B1TB, (RG) [MARK A SCRATCH, IN THE INTERNAL STATUS 
MOV (SP)+,R3 ; :POP STACK INTO R3 
MOV (5P)+.R1 ::POP STACK INTO R1 
RTS PC [NOW RETURN 


ORR RARER HERE RERERE REE RER HHRHEHERERERERERERERE HEH KEKE HE KEeHeReTeTeTeeETe 
STIS MODULE DETERMINES IF DATA FOUND IN THE NEW DEFECT BUFFER IS WITHIN 
:TOLERANCE TO BE CONSIDERED AS A POSSIBLE SCRATCH. TOLERANCE IS */= 3 WORDS. 


PPRTTITITITITIITITISITITITIIITITIITITITITITTTTITITIITI TTT TTT Titi teri 


TOLRAN: 
MOV R1,=(SP) ::PUSH R1 ON STACK 
MOV TEMP1,=(SP) ::PUSH TEMP1 ON STACK 
MOV TEMP2,=(SP) [PUSH TEMP2 ON S 
MOV #3,R1 :THIS IS THE TOLERANCE VALUE 
002354 1%: CMP TEMP1, TEMP2 [DO THE INPUTS MATCH? 
BEO 4$ :IF EQUAL YES -RESTORE STACK AND RE TURN 
BLO 2$ STHEY DO NOT, TEMP 1< TEMP2 (BRANCH) 
INC TEMP2 TADD ONE TO TEMP2 (TOO SMALL) 
BR 3$ SAND REDUCE THE ITERATIONS LEFT 
23: DEC TEMP2 :SUBTRACT ONE FROM TEMP of (TOO LARGE) 
3$: DEC R1 ONE LESS ITERATION 
BGT 1$ iO > >0 DO AGAIN 
MOV (SP)+, TEMP2 +; POP stack INTO TEMP2 
MOV (SP) +. TEMP1 POP STACK INTO TEMP1 
BR 5$ :AND RETURN 
48: CMP (SP)+, (SP)+ [POP STACK TWICE 
MOV (SP)+,R1 :;POP STACK INTO R1 
RTS PC [NOW RETURN 


PO RHRORRAHEHHHRHHH EHH HH HEeT HEH HARAH HAHAH HHAKeeHeeeKeReeereeenereeeeeereee 
i THIS MODULE LOOKS AT A 4 WORD FIELD IN THE NEW DEFECT BUFFER, CALLS ‘TOLRAN® 
z AND DETERMINES IF A SCRATCH DOES INDEED EXIS~ 


PITITTITITISIITISIIITIL ITLL ITT IIT TTP 


CHEKTD: 
MOV R1,-(SP) i PUSH R1 ON STACK 
MOV R2,-(SP) PUSH R2 ON STACK 
ADD #4‘R1 :MOVE_R1 UP TO THE FIRST DEFECT 
CLR TEMP2 STEMP2 IS THE DEFECT DATA ACCUMULATOR 
MOV #4,R2 sALLOW 4 DEFECTS MAX! 
1$ ADD (Ri), TEMP2 SACCUMULATE A DEFECT 
JSR PC, TOLRAN [CHECK ITS TOLERANCE 


AN 


08 466 
023470 


106 ee 


002354" 


2s: 


7; 


(SP)+,R2 
(5P)+,R1 
PC 


IF IT°S Ok, TEMP2 <>0! 


N 
‘IF >0, KEEP GOING 


33POP STACK INTO Re 
‘RETURN STACK INTO RI 


SEQ 0108 
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000003 


000016 
035656 


002245 


002245 


-@eeeeceneeereeeeeeeeeeeereeeerereeeeeeteeeneeeeeeateeeeteteeneeeeeteeaeeeteeene 


ifs MODULE IS USED AS PART OF THE SCRATCH pt gent be le PROCESS IT'S ron 


71S 4° DETERMINE THE HIGHEST CONTINUOUS ADDRESS WHERE A 
SLOCAT ED. 


;OuTPuTs ARE: 


CALL 


JSR 


HICYL 


PC, ,HIVALU 


SCRATCH HAS BEEN 


ITTTTITITITITITTTTTTTITITITT TTT TTTLTELELLLLLETTTTETELELE ee eeeee ee 


HIVALU: 
M 


1$: 


23: 


R1 mt ag # 
a<Pe2> 


scRIS BES TRKAT 


PC, CHEKTD 
TEMP2 
HICYL 
@<7e2>,R1 
3) Semneee 
(SP)+,R1 
PC 


;;PUSH R1 ON STACK 
MOVE smal THE FIRST DEFECT 


; TRAC 

Fr NOT. TAKE BRANC 
:DOES THE TD DATA MATCH? 
z1F TEMP2=0,NO! 


[TAKE BRANCH IF NO MATCH 

: INCLUDE | ines CYLINDER IN THE SCRATCH AREA 
:OUT OF DEFECT BUFFER YET ? 

R IF N 


0 
POP STACK INTO R1 
RETURN 


Sse eeeeeecarecceerercerecerereeerreeraeareeaaaaeenarenseness aeeatarereeneaeenesesene 


THIS MODULE LOOKS FOR GAPS IN THE SCRATCH DATA CONTA.NED WITHIN THE NEW 


;DEFECT BUFFER. 
-° 
;OUTPUTS ARE: 


*HICYL® CIF A GAP IS FOUND or 5 CYLINDERS OF THE VALUE 
SET BY ‘HIVALU* OUTPUT) 


e 
CALL 
; JSR PC .GAPVAL 
s_eeeeeeeereeaveceesarecereeeeeneaneeanteeneereneeeenateneerannenaananeeeneeees 
GAPVAL : 
MOV R1,-(SP) 37PUSH R1 ON STACK 
1$ MOV R2,-(SP) 7ZPUSH R2 ON STACK 
MOV (R1),=(SP) ;7PUSH (R1) ON STACK 
BIC #170600, (SP) :STRIP THE UNWANTED BITS 
CMP (SP)¢, HICYL *MATCH 
BEQ 2 IF fone, THEY MATCH 
ADD @<7#2>,R1 GET NEXT “BUFFER ENTRY 
CMP R1,#ENDDEF [OUT OF DEFECT BUFFER YET ? 
BLOS=ss«éam$ [BR IF NO 
R SDONE, IF OVERRUN 
23: ron  eeeenammectidas. 31S THIS THE CORRECT i RACK ADDRESS?. 
ADD @<7#2>,R1 GET “NEXT BUFFER ENTRY 
CMP R1, #ENDDEF SOUT OF DEFECT BUFFER YET ? 
BLOS) ss $ :BR IF NO 
BH! 6$ [DONE IF OVERRUN 


SEQ 0109 


KAO RPO7 
SCAN MOD 
54 0 $ 
55 0236 
rs 0 
57 0 
58 023646 
59 023652 
60 025654 
61 023660 
o¢ 02 r¢ 33 
63 02367 
64 023672 
65 8 676 
66 023700 
67 Os a7be 
68 025704 
69 023710 
70 023714 
71 023716 
8 023722 
7 O¢a7¢e 
74 023730 

023730 
023732 
75 023734 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 023736 
023736 
88 023740 
89 023744 
023744 
90 023746 
91 023752 
92 023756 
93 923760 
94 023764 
95 023770 
38 023772 
98 023774 
99 024002 

100 024006 
101 024010 
102 024014 

103 024016 
104 024022 

105 026026 
106 026032 


O14 HY 


~~ OE See So~ 


—— OO ©SSSSSSSSuSNon 
NAM NOCUNNNON SYNONI NS 


ooo oO-COOCCoOooCo 


ae 
sat 
002304 
000003 


002304 


023426 
062354 


000005 
002356 


000003 


023424 
002354 


002356 


002265 


002245 


3$: 


4$: 


5$: 


63: 
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#5,R2 

CRI) DESCYL 
DESCYL 
@<7e2>,R1 
R1, #ENDDEF 
(R1) ,DESCYL 
3(R1) DESTRKeT 
DESCYL 

R 

4 

6$ 

PC, CHEKTD 
TEMP2 


P 
(SP)*, HICYL 


(SP)*,R2 
(SP)¢,R1 
PC 


LTA VALUE 
SAVE THE CURRENT ST yea by ADDRESS 
2 AND LOOK FOR THE NEXT VALUE 

UFFER VAL UE 
SOUT OF DEFECT BUFFER YET ? 


:BR IF YES 

s CYLINDER ADDRESS MATCH? 
;TAKE BRANCH IF NOT 

; TRACK ADDRESS ere 

TIF SO TAKE BRANCH 

[NEXT CYL t ODRESS<PL EASE 

TONE LESS iypneties TO GO 

;1F >0, WE'RE NOT DONE 

SIF 0 WE NEVER FOUND ° CONTINUATION 

'GET THE NEW TD SUMMATION 

z1F A SCRATCH VALUE FOUND, THIS <>0 


ADD THAT WIDTH TO THE KIGH LIMIT 


3;POP STACK INTO R2 
3;POP STACK INTO RI 
RETURN TO CALLER 


pLMM eee eereeeereeeereeeererereeeeeeteeHeneeeHeHereneererereerenerseeeeseerees 
S THIS MODULE IS USED TO DETERMINE THE HIGHEST VALUE OF A SCRATCH FOUND WITHIN 
3 THE NEW DEFECT BUFFER. 


° 
PL eeeeeceracesececeeeeeseceeceseeseresevaneaagaaaraasacesesenusaenereneeneeeseteee 


000005 002356 4%: 


002356 002206 


OUTPUTS ARE: WICYL 
CALL 
: JSR PC ,MAXVAL 
MAXVAL : 
MOV R1,<(SP) 
io ADD a<Pe2>,R1 
MOV (R1),<(SP) 
BIC #170600, (SP) 
CMP (SP)*,WICYL 
BEQ 3$ 
23: ADD @<7#2>,R1 
CMP R1,#ENDDEF 
BLOS 1$ 
R 4% 
3$: CMPB 3(R1) ,DESTRK*1 
BNE 
JSR PC. CHEKID 
1ST TEMP2 
BEQ 
INC HICYL 
BR 
ADD #5 HICYL 
Mp HICYL MANO YL 


3zPUSH R1 ON STACK 
3GET THE NEXT VALUE PAST THE GAP VALUE 


;7PUSH (RI) ON STACK. 
:STRIP THE UNWANTED BITS 

;MATCH? 
:1F SO, TAKE BRANCH 

:GET NEXT BUFFER ITEM 

OUT OF DEFECT BUFFER YET 2 

:BR IF NO 


:D0 bE HAVE A TRACK ADDRESS MATCH? 
AKE THE BRAN 
{AND One cK THE EXISTING. 1D RECORD VALUES 
> CHECK TEMP? To DETECT A MATCH 
[IF ZERO ATCH 
i INCREASE We MECRATCH! S HIGHEST CYLINDER 


AND LOOP 
TADD ANOTHER 5 TO THE SCRATCH’S HIGHEST CYLINDER 


sLEGAL ADDRESS? 


SEQ 0110 
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Q O1TT 
DATA SCAN MODULE reach 


107 024060 1014 BLOS 5$ sIF LOWER OR SAME 
+. 03cacg 09393) 002206 002356 MOV MAXCYL WICYL :SET UP FOR ONLY tue’ han CYLINDER 
024050 012601 MOV (SP)¢,R1 szPOP STACK INTO R1 
110 024052 000207 RTS PC SRE TURN 
118 -@eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeteeeeeeeeeneeeeeeeeeeeaeeneseeereeeeaes 
11 ?$H1S MODULE I$ USED 10 COMPRESS DATA OUT OF THE BUFFER, THAT DATA WHICH HAS 
114 [BEEN INTERPOLATED AS NON-CONTIGUOUS SCRATCH DATA, THE DATA WHICH REMAINS IS 
415 ;DATA REPRESENTATIVE OF DEFECTS ACTUALLY FOUND ON THE MEDIA, NOT INTERPOLATED 
Ne METITITITITITITITIIIIITITITI ITI TITITI TIT ITT TTT riiiiiiiiiiiiii iii 
11 
119 024054 COMPRS: 
024054 010146 MOV R1,-(SP) 77PUSH R1 ON Sate 
024056 010246 MOV R2,-(SP) t:PUSH R2 ON STACK 
120 024060 010102 MOV R1R GET THE CUMRENT BUFFER ADDRESS 
121 024062 062702 000016 ADD #<Fe2>,R2 [GET THE NEXT EN 
122 024066 012221 1$ MOV (R2)4,(R1)¢ [COMPRESS OVER THE CURRENT ENTRY 
123 024070 020227 035656 CMP R2,#ENDDEF Out OF DEFECT BUFFER YET ? 
126 026074 101776 BLOS 1$ F NO 
125 024076 012602 MOV (SP)*,R2 ee STACK INTO R2 
024100 012601 MOV (SP)¢,R1 ;7POP STACK INTO R1 
126 924102 000207 RTS PC 
128 Seeeeeeeeeeeeeeeeeeseseecaesenkeseeeestesteaeaeeseateaeeetenenekeeeseeeeeeaeeeneneted 
129 THIS MODULE IDENTIFIES DATA WHICH REPRESENTS A SCRATCH ON THE MEDIA. THE 
130 [DATA FOUND MUST INITIALLY BE CONTIGUOUS, ON THE SAME TRACK = ADJACEN 
131 [CYLINDERS. GAPS AND THE MAXIMUM AND MINIMUM INTEPPOLATED ADDRESSES ARE THEN 
132 ZDERIVED AND LOGGED IN THE NEW DEFECT BUFFER FOR EVENTUAL TD REWRITE. 
133 PP Meeeeeeeeorenesecerverererereresaeraereaneneeeteeets eeeaeeee eae eee eeeaeeeeeenesenee 
134 
135 024104 FINSCR: 
9246106 013746 002304 MOV DESCYL, (SP) :zPUSH DESCYL ON STACK 
024110 013746 002244 MOV DESTRK,=(SP) ;:PUSH DESTRK ON STACK 
136 026114 012737 001167 002360 MOV #631. ,LOCYL :SET LO CYL BOUNDARY AND THE 
137 026122 012737 177777 002356 MOV #-1 ,HICYL [AND THE HI CYL BOUNDARY TO ILLEGAL LIMITS 
138 026130 012704 035660 MOV #@DBUFF RG GET POINTER 10 BEGINNING oF pata Bur F 
139 0246134 005003 CLR R3 :R3 USED TO DETECT A TRACK M 
140 024136 012701 032250 1$: MOV #DEFBUF RI [GET POINTER TO BEGINNING OF MDEFECT BUFFER 
141 026142 012105 2$: MOV (R1)+_R5 [SAVE FIRST WORD (CYL ADPS) 
142 0261464 042705 170000 BIC #170060,R5 :STRIP THE STATUS BITS 
143 026150 011146 MOV (R1),=(§P) : SAVE SECOND WORD (TRK/SEC ADRS) 
144 926152 105016 CLRB (SP) sGET RID OF LOW BYTE (EXTRACT TRACK) AND 
145 026154 000316 SWAB (SP) “MAKE IT THE LOW BYTE OF DATA 
146 024156 022603 CMP (SP) +, R3 [1S THERE A DEFECT ON THIS TRACK ? 
147 026160 001415 BEQ 5$ :BR IF YES 
1468 024162 062701 000014 3$: ADD #<6*2>,R1 SPOINT TO NEXT DEFECT IN TABLE 
149 0246166 005711 1ST (R1 71S IT VALID DAT 
150 026170 001403 BEQ 4$ ‘BR IF NO 
151 024172 020127 035656 CMP R1, #ENDDEF SEND OF DEFECT BUFFER YET ? 
15¢ 026176 101761 BLOS 23 ‘BR IF NO 
153 024200 005203 4$: INC R3 [GET NEXT TRACK 
154 0264202 900397 000037 CMP R3,8@31, SLAST TRACK YET ? 
158 026206 101753 BLOS 1$ [BR IF NO 
156 024210 000137 0246720 JMP 218 [NO DEFECTS FOUND 
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ad 
SCAN 
158 0246216 010137 002214 5$: MOV R1,TEMPA SAVE THE CURRENT TRACK 
159 026 005205 INC R5 sGET NEXT CYLINDER 
160 024 005761 000016 6$: TST 16(R1) :1S IT VALID DATA ? 
161 026 8 001764 BEQ 4$ :BR IF NO 
\6¢ 024 016646 000016 MOV 16(SP),=(SP) SAVE SECOND WORD (TRK/SEC ADRS) 
163 0246234 105016 CLRB (SP) GET RID OF LOW BYTE (EXMTRACT TRACK) AND 
166 0246 890318 SWAB (SP) sMAKE IT THE LOW BYTE OF DATA, 
165 st 40 02260 CMP (SP)+,R3 :1S THERE A DEFECT ON THIS TRACK ? 
166 026262 0014610 BEQ 7$ 3BR IF YES 
167 02424646 08270" 000016 ADD #<7*2>,R1 GET THE NEXT ENTRY, PLEASE 
168 024250 005711 TST (R1) 31S IT VALID DATA ? 
169 024252 001738 BEQ 4$ ;BR IF NO . 
170 024254 020127 035656 CMP R1,@ENDDEF END OF DEFECT BUFFER VET ? 
171 oee¢60 101760 BLOS 6$ :BR IF NO 
178 024262 101346 BH! 4$ 3BR IF YES 
173 024266 016146 000014 7$: MOV 4(R1),=(SP) ;SAVE FIRST WORD (CYL ADRS) 
176 024270 042716 170000 BIC #170006, (SP) [STRIP THE STATUS BIT 
175 026274 022605 cmp (SP)*,R :1S THERE A DEFECT ON THIS CYLINDER ? 
176 pene76 001331 BNE 3 :BR IF NO 
177 0246300 peer) 000016 ADD #<7e2>,R1 3GET THE LAST LOOKED AT ENTRY 
178 024304 005037 002352 CLR TEMP? ; THESE ARE USED AS DATA 
179 026310 005037 002354 CLR TEMP2 DEFECT ACCUMULATORS 
180 024314 Oi eres 000004 MOV a4 ,-(SP) GET # OF DEFECT ENTRIES IN TD RECORD 
181 026320 013705 002214 MOV TEMPA,RS GET THE ORIGINAL BUFFER ADDRESS OF THE SCRATCH 
182 026324 005725 TST (RS)¢ sMOVE UP TO THE FIRST DEFECT VALUE 
183 026326 eget TST (R1)¢ sNEMT DEFECT, PLEASE 
184 026330 062537 002352 8$: ADD (RS) ¢, TEMP1 sACCUMULATE THIS INFORATION 
185 024334 062137 Oot see ADD (R1)¢, TEMP2 sFOR BOTH CYLINDERS WITH A COMMON TRACK 
186 024340 004737 023336 JSR PC, TOLRAN s1S THE DATA WITHIN TOLERANCE? 
187 0263464 923737 002352 002354 . CMP TEMP1, TEMP2 ;1F SO, THESE WILL MATCH... 
188 024352 001404 BEQ 9s TAKE BRANCH IF SO 
189 026354 005316 DEC (SP) NEXT RECORD ENTRY, PLEASE 
190 024356 003364 BG! ay TRY AGAIN, IF NOT 0 
191 0246360 005726 TST (SP)« RESTORE THE STACK 
192 024362 000677 fa 3$ NO MATCH, KEEP LOOKING 
193 0246364 024145 9$: CMP =(R1),-(R5) BACK UP THE POINTERS TO THE LAST DEFECT 
194 026366 021627 000004 CMP (SP), #4 sWHICH DEFECT MATCHED? 
195 024372 001402 BEQ 108 z1F (SP) MATCHES 4, IT IS THE CURRENT ONE. 
196 026374 005216 INC (SP) ;AND TALLY THE EVENT 
197 024376 000/772 he i} 3 KEEP GOING 
198 024400 003796 Z 10$: 1ST (SP)¢ RESTORE THE STACK 
199 024402 016537 177774 002360 MOV -4(R5) LOCYL GET THE LO CYLINDER ADDRESS FOR THE SCRATCH 
200 024410 049757 170000 002360 BIC #170006, LOCYL «©: STRIP THE MASK BITS 
201 926416 023727 002360 000005 CMP Locy. #5 [1S THE CYLINDER ADDRESS > 5? 
202 024424 101004 BHI 11$ :1f SO, TAKE BRANCH 
024426 013737 002204 002360 MOV MINCYL ,LOCYL 7SET UP FOR THE FIRST LEGAL CYLINDER 
0244 pOoe ts BR $ ;AND KEEP GOING 
205 0244636 Age? 000005 002360 11$: SuB #5,LOCYL REDUCE THE LOWEST SCRATCH ADDRESS BY 5 
206 0244446 08 737? 002360 002204 CMP LOCYL ,MINCYL sLEGAL ADDRESS? 
024452 103005 BHIS 128 s1f =>, YES 
208 0246454 013737 002206 002360 MOV MINCYL,LOCYL TCREATE THE LEGAL ADDRESS 
209 024462 013737 002360 002304 12%: MOV LOCYL ,DESCYL SET UP FOR THE DRIVER 
210 024470 16701 000004 SuB #4,R1 MOVE R1 TO CYL ADDRESS OF BEGINNING OF SCRATCH 
211 024474 011137 002356 MOV CRE) WICYL SET UP THE FOUND HIGHEST CYL ADDRESS OF THE SCRATCH 
as 024500 005037 002244 CLR ESTRK [DESTRK = 0, 
13 0245046 116137 000003 002245 *OVB (R1) DESTRK*1 SET UP FOR THE DRIVER 
214 994°"? 062737 170000 002356 BIC #170060, WICYL STRIP THE UNWANTED MASK 
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215 024520 004737 8g 474 JSR PC ,HIVALU 7GET THE HIGHEST FOUND VALUE 
216 024526 0047357 023546 JSR 4% GAPVAL [LOOK FOR GAPS; IE HEAD rts 
iz 026530 0046737 023736 J5R MAXVAL [GET THE LARGEST SCRATCH VALUE 
18 0245 024545 CMP “t45) oo (RS) sBACK UP THE POINTER TO BE GINNING OF THE DEFECT RECORD 
219 0245 010501 : MOV RS,R GET THE ORIGINAL SCRATCH DAT 
220 Og 260 013737 002352 002 366 MOV Tchr -ECCWRD [LOAD THE ECC WORD DATA 
$$) $4 013737 002360 002304 138 MOV LOCYL ,DESCYL [GET THE STARTING CYLINDER ADDRESS 
096384 011146 MOV (R1),<¢SP) : PUSH (R1) ON STACK 
225 026556 942716 170000 BIC #170600, (SP) :STRIP THE UNWANTED MASK 
224 024562 022637 002360 CMP ($P)*,LOCYL 3 IN RANGE? 
225 024566 001416 BEQ 17% STAKE BRANCH IF SO 
226 026570 0047 0e 3820 146$: JSR PC ,UPDSCR iUPDATE THE SCRATCH INFORMATION 
227 026574 005237 002360 INC LOCYL FINISHED WITH THIS CYLINDER 
228 026600 005237 002304 INC DESCYL [GET THE wext CYLINDER IN THE SEQUENCE 
229 024606 023737 002360 002356 i15$: CMP LOCYL.WICYL STILL IN RANGE? 
230 024612 101760 6.0S 13% YES. 
331 024614 000137 024142 JMP 23 60 pack AND LOOK FOR ANOTHER SCRATCH 
$34 024620 062701 000016 16$: ADD #<7#2>,R1 sNEXT BUFFER ENTRY, PLEASE 
234 024624 026637 177776 002356 178: CMP =2(SP),WICYL STILL IN RANGE? 
235 0266352 de BLOS 18$ tIF SO, TAKE THE BRANCH 
$38 024634 000137 024200 JMP 4$ 3GET THE NEXT TRACK AND LOOK FOR ANOTHER SCRATCH 
238 024640 126137 000003 002245 18%: CMPB 3(R1),DESTRK*1 ;TRACK MATCH ? 
239 024646 901408 BEQ 19$ 1 SO, LOG THE DAT 
240 024650 10376 BLO 16$ [IF LOWER, KEEP MOVING THROUGH THE BUFFER 
241 0246652 101346 BHI 14% TIF HIGHER, GET THE TD FROM THE DISK, AND UPDATE I7 
242 024654 012705 000007 19$: MOV #7,R5 :7 ITEMS / RECORD 
243 024660 012124 208: MOV (R1)*, (RG) [LOG THIS SCRATCH DAT 
246 024662 005305 DEC R5 ONE LESS ITEM / THIS “RECORD 
024664 003375 BGT 208 jKEEP GOING UNTIL R4& = 0 
024666 162701 000016 SUB #<7*2>,R1 BACK R1 UP TO THE TOP OF THIS RECORD 
247 026672 006737 024054 JSR PC, COMPRS STRIP OUT THIS DEFECT, AND COMPRESS. THE BUFFER 
248 024676 005237 002304 INC DESCYL gNEXT DESIRED CYLINDER PLEASE 
249 026702 005237 002360 INC LOCYL sONE LESS CYLINDER T0-GO 
250 026706 020197 035656 CMP R1,#ENDDEF END OF DEFECT BUFFER YET ? 
251 026712 101734 Bios) ~=—s«éd:8$ ; F NO 
$36 024714 000137 024142 JMP 23 :GET THE NEXT CYLINDER ADDRESS 
254 026720 012701 032250 218 MOV #DEFBUF ,R1 GET POINTER TO BEGINNING OF DEFECT BUFFER 
255 024726 012126 228 MOV (R1)+,(R4)¢ [LOG THE NON, SCRATCH RELATED DATA 
256 0247 005711 1ST (R1) ZVALID DAT 
257 926730 001375 BNE itt SKEEP GOING lett R1 = 0 
258 026732 012637 002264 MOV (SP) +, DESTRK ':PGP STACK INTO DESTRK 
026736 012637 002304 MOV a +, DESCYL ::POP STACK INTO DESCYL 
259 0264742 000207 RTS sRETURN TO MAIN 


K 
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DATA SCAN MODULE - wets gst 


HmiS MODULE 1S USED BY THE SCANNER MODE OF OPERATION = 
TINPUTS ARE: FROM RI 

OUTPUTS ARE: DESCYL, DESTRK, TRACK DESCRIPTOR BUFFER CALLED ‘TDwWRDI" 

ITMIS MODULE IS CALLED BY: MAIN 


FFP AHHHHAAHEHEHHH ETEK SHEESH HE HAHAHAHAHAHA AAHHAHAHERAAHEHAHAHAEEAHHHEHHASETAEEE 


024746 LOADTD: 

024744 010946 MOV RO,=-(SP) 7;PUSH RO ON STACK 

024746 012700 bh 44 MOV #TOWRD1,RO :GET ae TO BEGINNING OF TD BUFFER 
024752 011137 002304 MOV (R1) .DESCYL ;LOAD THE DESIRED CYLINDER ADDRESS AND 
024756 042737 170000 002304 BIC #170000, DESCYL iE TRIP OFF STATUS BITS. 

024764 01 120 MOV (R1)*, (RO)* ‘LOAD CYLINDER ADDRESS Into TD WORD #1 
024766 011137 002244 MOV (R1) ,DESTRE SLOAD THE TRACK ADDRESS A 

024772 105037 002244 CLRB DES 3; THE SECTOR RE 

024776 012120 MOV (RI) +. (RO) + sLOAD TRACK/SECTOR ADRS INTO TD WORD #2 
025000 012120 MOV (R1)#,(RO)* sLOAD TD WORD #3, 

025002 012120 MOV (R1)*,(RO)¢ :1D WORD #4, 

025006 012120 MOV (R1)+,(RO)* [TD WORD @ 

025006 012110 MOV (R1)+, (RO) + AND TD wORD #6. 

025010 005721 TST (R1)¢ Get OVER INTERNAL STATUS WORD IN TD LIST 
025012 012600 MOV (SP)+,RO OP STACK INTO RO 

025014 000207 RTS PC ‘face THE RETURN NOW 


METI) 
i THIS MODULE IS USED LJ ite THE CONTENTS OF A BUFFER CALLED ‘TDWRD1* IN THE 
A BUFFER CALLED *TDIMP1 


ZINPUTS ARE:  TDWRD1 = TDWRDG 
[OUTPUTS ARE: TDTMP1 = TDTMP6 
-@e 

:THIS MODULE IS CALLED BY: MAIN 


PLeeeeceaerecaeserereeeerereeereereaneraneaneeaaeraornaneanareneerenerereeereres 


OD NOAWE WN —OOBNAUEWN “COON UVEW W—OOCONGVTEWY- 


WIN AANNNIAANN PO POPPI PIPUROPUNPYNY a es 


025016 SAVETD: 

025016 010046 MOV RO,-(SP) ike om RO ON STACK 

025020 010146 MOV R1,-(SP) PUSH R1 ON STACK 
40 025022 012700 030200 MOV #TOWRD1,RO [GET POINTER TO BEGINNING OF TD BUFFER 
41 9025026 012701 030230 MOV #TOTMP1 RI IGET POINTER TO BEGINNING OF TD TEMP. BUFFER 
42 025032 012021 MOV (RO)+,(R1)¢ 7SAVE TD WORD #1, 
45 025034 012021 MOV (RO)*, (R1)¢ 31D WORD #2, 
44 025036 012021 MOV (RO)*,(R1)¢ 31D WORD #5, 
45 0250460 012021 MOV (RO)*,(R1)¢ :TD WORD #4, 
46 025042 012021 MOV (RO)*+,(R1)¢ TD WORD oes 
47 025044 011011 MOV (RO), (R1) sAND TD WORD #6. 
48 025046 012601 MOV (SP)¢,R1 :;POP STACK INTO RI 

0250 012600 MOV (SP)+,R0 3:POP STACK INTO RO 

000207 RTS PC 


49 025052 
50 


51 -eeeeeeeeeeeeeeeeeeeeeereeeeeeeeneeeeeneeeeeeeneneenrenenerenererererenererese 
52 {THIS MODULE IS USED TO RESTORE THE A OF A BUFFER CALLED ‘TDIMP1® WITH 
53 >THE CONTENTS OF A BUFFER CALLED ‘TDWRDI° 
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DATA SCAN MODULE 
54 :* 
2 s INPUTS ARE: TDTMP1 = TDIMP6 
22 OUTPUTS ARE:  TDWRD1 = TDOWRDG 
*@ 
59 sTHIS MODULE IS CALLED BY: MAIN 
60 es, teeeeeeneraeerererererererereeerenereteeraneenetenetenetenteneenenenetereetee 
61 
62 025054 RESTID: 
025054 010046 MOV RO,-(SP) z:PUSH RO ON STACK 
023056 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
63 025060 012700 030230 MOV #TDTMP1,RO [GET POINTER TO BEGINNING OF TD TEMP. BUFFER 
64 025064 012701 030200 MOV #TOWRD1.R1 7GET POINTER TO BEGINNING OF TD BUFFER 
65 025070 012021 MOV (RO)+,(R1)¢ 7SAVE TD WORD #1, 
66 025072 012021 MOV (RO)+,(R1)¢ :TD WOR ae. 
67 025074 012021 MOV (RO)*+,(R1)¢ 7TD WORD #3, 
68 025076 012021 MOV (RO)+,(R1)¢ :TD WORD #4, 
69 0¢5100 012021 MOV (RO)*.(R1)¢ :TD WORD #5, 
70 025102 011011 MOV (RO), (R1) sAND TD WORD #6. 
71 025104 012601 MOV (SP)4,R1 ::POP STACK INTO R1 
025106 012600 MOV (SP)+,RO ::POP STACK INTO RO 
72 025110 000207 RTS PC 
74 Fe AAA AAAHAAAAAHEAAEHAAAAHEHAE HAHAHA AAHAEHEAAHREAAHREHRERAHRERAAAAHEHAHAHeheeeeeeene 
75 :THIS MODULE 1S USED WHENEVER THE TD CANNOT BE READ CORRECTLY AND THE 
76 ZDESIRED CYLINDER/TRACK/SECTOR ADDRESSES MUST BE SETUP IN THE TD BUFFER. 
a4 ZALSO, THE FOUR DEFECT WORDS OF THE TD ARE NULLED. 
*@ 
a4 [INPUTS ARE: DESCYL, DESTRK 
4 OUTPUTS ARE: TO TRACK DESCRIPTOR BUFFER CALLED ‘TOWRD1' 
*@ 
ne ;THIS MODULE IS CALLED BY: MAIN 
84 Set MMAAAKAAHK HAHAHA HHH HKeK ee KeKHeKeeKeeKKeeeteeeeeteneeteneeetteneteneneeeee 
85 
86 025112 DESTD: 
025112 010046 RO.-(SP) 77PUSH RO ON STACK 
87 025114 012700 030200 MOV #TOWRD1,RO sPOINT TO BEGINNING OF TD BUFFER 
88 025120 013710 002304 MOV DESC YL « (RO) *LOAD THE CYLINDER ADDRESS AND 
89 025124 052720 030000 BIS #B1113'BIT12, (ROS :MARK WORD AS TD & FMT16 IN TD WORD #1 
90 025130 013710 002244 MOV DESTRK, (RO) ;LOAD THE TRACK ADDRESS AND 
91 025134 052720 000377 BIS #377, (RO)+ sTHE SECTOR ADDRESS IN TD WORD #2 
92 025140 012720 140000 MOV #NULL, (RO) + sNULL TD WORD #3, 
93 925144 012720 140000 MOV WNULL, (RO) + 31D WOR . 
94 025150 012720 140000 MOV #NULL, (RO) + [TD WORD #5, 
95 025154 012710 140000 MOV #NULL, (RO) zAND TD WORD #6. 
96 025160 012600 MOV (SP)+,RO :;POP STACK INTO RO 
97 025162 000207 RTS PC [TAKE THE RETURN NOW 


4 
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DATA SCAN MODULE 


1 
§ 3 "HER eReeeSeTeTeeeeCHCeKeSeeeeaeeeeeeeaeteekeaeeeteaeeeeeteteteneeeeererereeee 
[THIS MODULE IS USED WHEN SUBSEQUENT ITERATIONS OF THE SCANNER ARE REQUIRED TO 

i SELIMINATE FURTHER DEFECTS LOCATED IN THE SCANNING PROCESS. IT TAKES DATA 
5 [FROM THE POINTER "LASLOC*® AND PUTS IT IN THE BUFFER: "DEFBUF'. THIS DATA IS 
[DATA WHICH IS FOUND DURING A SUBSEQUENT SCAN OPERATION, WHEN VERIFYING THAT A 
7 [PREVIOUSLY ADDED SKIP DID WORK CORRECTLY. 
B FF AAA AAAHAAAHAAEAAHSE HEHEHE HEHEHE HAHEEHHAHATHAEHReHEHeHTAAKeKeKeeeneeaeeeeesese 
9 

10 025164 105737 002235 NEWDAT: TSTB = FIRPAS ZSCANNER FIRST PASS ? 

11 025170 001420 BEO 4$ [IF SO, DON'T RUN THIS MODULE 

i 025172 91 246 MOV R2,-(SP) SAV 

13 025174 010146 MOV R1,=(SP) TAND SAVE R1 

14 025176 013701 002232 MOV LASLOC,R1 [GET POINTER TO BEGINNING OF LAST DEFECT 

15 025202 012702 032250 MOV #DEFBUF ,R2 SGET POINTER TO BEGINNING OF DEFECT BUFFER 

1 025206 012122 1$ MOV (R1)+,(R2)¢ [MOVE THE NEW DATA TO THE TOP OF THE BUFFER 

17 025210 020116 CMP R1, ( [DONE WITH NEW DATA ? 

18 Oe5et2 103775 BLO 1$ [IF LOWER, NO 

19 025214 020227 035656 2$ CMP R2, #ENDDEF TEND OF DEFECT BUFFER YET ? 

20 025220 10100 BHI 3$ ‘BR IF Y 

21 025222 00502 CLR (R2)+ S INITIALIZE THE UNUSED BUFFER LOCATIONS 

22 025224 00077 BR 2$ [DO UNTIL DONE 

23 025226 005726 3$ TST (SP)+ [POP STACK ONCE 

24 025230 012602 MOV (SP)+,R2 SRESTORE R2 

25 025232 000207 4$: RTS PC SNOW TAKE THE RETURN 

27 FF AAA AAAAAAAAAAAAAAATAAAAEAAAEHAAAHKEAEKREREHEKARHARAHReHAHARARe eee RAeeReteeeeeres 
28 :THIS MODULE IS USED TO RESTORE THE MASTER BUFFER "DBUFF* BETWEEN ITERATIONS 

29 SOF THE SCANNER. 

30 SP RAAAAAAA REHEAT EATAA EEA AEAAEAAAHARHRHAKAKEAAeAAKeAeKeKeKeeeteneteteteeetereene 
31 

32 025234 012701 032250 RESTOR: MOV #DEF BUF ,R1 sGET POINTER TO BEGINNING OF DEFECT BUFFER 

33 025240 012703 035660 MOV #DBUFF ,R3 'GET POINTER TO BEGINNING OF DATA BUFFER 

34 025244 032763 000400 000014 15: BIT #BIT8,14(R3) | WAS IT AN INTERPOLATED SCRATCH ? 

35 025252 001406 BEQ 2$ :BR IF NO 

36 025254 062703 000016 ADD #<7#2>,R3 [DO NOT RESTORE ENTRY BACK TO DEFECT BUFFER 

37 025260 020327 117656 CMP R3, MENDBUF [DONE WITH BUFFER YET ? 

38 025264 101767 BLOS «ii :BR IF NO 

39 025266 000415 5$ 

41 025270 005713 2$: TST (R3) yANY MORE ENTRIES ? 

42 025272 001003 BNE 3$ BR I 

43 025274 010137 002232 MOV R1,LASLOC :GET THE FIRST UNUSED BUFFER ADDRESS 

44 925300 (00410 BR 5$ SAND GET OUT 

46 025302 012704 000007 3$: MOV a TSEVEN ENTRIES / RECORD 

47 025306 012321 4s: MOV (R$)+,(R1)+ SRESTORE THE ORIGINAL BUFFER 

48 025310 005304 DEC RG TONE LESS ENTRY THIS RECORD 

49 025312 003375 BGT 4$ [DO UNTIL R4 = 0 

50 025314 020127 035656 CMP R1,#ENDDEF [END OF DEFECT BUFFER YET ? 

51 025320 101751 BLOS 1$ [BR IF NO 

32 025322 000207 5$: RTS PC 

62 

69 
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REPORT CODING SECTION vanes metings ene 

! .S8TTL REPORT CODING SECTION 

tg 7 THE REPORT CODING SECTION CONTA INS THE 

44 “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 

46 r 

47 025326 LSRPT:: 

60 

61 025324 000167 -WORD J$JMP 

3 025326 000000 «WORD 110007-2-. 

7 EVEN 

76 025330 L10007: 

025330 104425 TRAP = C$RPT 


10° 
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— 
$2 


-SBTTL PROTECTION TABLE 


zee 
; THIS TABLE IS USED BY THE a SERVICES 
: TO PROTECT THE LOAD MEDIA 


LSPROT:: 


025332 : 

025332 000000 0 ;P-TABLE OFFSET OF CSR 
10 025334 177777 1 ;NOT A MASSBUS DEVICE 
: 025336 000006 6 :P-TABLE OFFSET DRIVE @ 
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INITIALIZE SECT! 
.SBTTL INITIALIZE SECTION 
3oe 
é : THE INITIALIZE SECT ION CONTAINS THE CODING THAT IS PERFORMED 
: : AT THE BEGINNING OF EACH PASS. 
8 025340 LSINIT:: neeet tel eta 
; L 
10 025340 104433 TRAP — C$RESET 
11 ;CONTINUE COMMAND ? 
12 025342 012700 000036 MOV rt YS alae 
025346 104447 TRAP CSREFG 
13 :G0 TO 1$ IF NO 
14 025350 103002 BCC 1$ 
15 sExIT IF YES 
16 025352 104432 TRAP = CSEXIT 
025354 000756 «WORD L10011-. 
17 025356 1$: ;RESTART COMMAND ? 
18 025356 012700 000037 MOV WEF RES,RO 
025362 104447 TRAP —- C$REFG 
19 :G0 TO 3$ IF YES 
20 025364 103414 BCS 3$ 
21 sPOWER FAIL START ? 
22 025366 012700 000034 MOV #EF .PWR,RO 
025372 104447 TRAP CSREFG 
23 360 TO 2$ IF NO 
24 025374 103002 BCC 2$ 
, 25 025376 000137 026044 JMP 15$ :GO0 TO 15$ IF YES 
26 025402 2$: :START COMMAND ? 
_ 2? 025402 012700 000040 MOV #EF .STA,RO 
025406 104447 TRAP = C$REFG 
- 28 :G0 TO 3$ IF YES 
+ 29025410 103402 BCS 3$ 
30 025412 000137 026010 JMP 13$ :G0 TO 13$ IF NO . 
31 025416 005037 002114 3$: CLR LSTEST [CLEAR TEST NUMBER - 
32 025422 005227 177777 4$: INC #-1 aie) TIME THRU HERE ? 
33 025426 001010 BNE 6$ ‘BR IF N 
34 025430 5$: sPRINT THE HELP MESSAGE 
35 025430 012746 004647 MOV #FRMTSO,<-‘SP) 
025434 012746 000001 MOV #1,-(SP5 
025440 010600 MOV SP. 
025442 104417 TRAP _LSPNTE 
029464 062706 000004 ADD #4, SP ; 
3¢ 025450 6$: ‘ :Pkin? “OPTIONS (6=HELP) (») 0 ?° 
37 025450 104443 TRAP CSGMAN 
025452 000406 BR 10000$ 
025454 002160 ~wORD OPTION 
025456 000052 *wORD TSCODE 
025460 006067 “WORD MESG7 
025462 000007 ‘WORD 7 
025464 000000 -WORD 1S 
025466 000006 mod “WORD TSHILIM 
025470 100008: 
39 025470 005737 002160 TST OPTION sFORMAT OPTION ? 
~ 40 025474 001410 BEOQ [BR IF YES 
41 025476 023727 002160 000002 CMP OPTION, #2 *SCAN OPTION ? 
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é 
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67 
68 025650 
256 
é 
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000001 


005737 
001440 


104443 


001166 


104443 


001166 


104443 


000052 


002160 000004 


002152 


002160 000006 
002160 000004 


002156 


002156 


7$: 


10001$: 


8$: 


10002$: 


100038: ~ 


10004$: 


7$ 
OPTION, #4 
8$ 


MROOM 
AOZOO 
ao-Oos 
rvwo--—> 
VINZSARS 


NTIN 


DCLN 
OPTION, #6 
5$ 
OPTION, #4 
12% 


own a tee ae ae 


PRO 


DRVPAR 
CS$GMAN 


D 10 


:BR_ IF YES 
ad OPTION ? 


; CONTINUE ?° 


sCONTINUE ? 
sBR IF YES 
sPRINT HELP MESSAGE ? 
;sBR IF Y 


WHAT IS OPTION ? 
> BR E FE=2 


R 
S FORMAT, VERIFY, SCAN OR LIST 
only CHANGE PARAMETERS 


DEF AUL 
sPRINT "CHANGE DRIVE PARAMETERS (L) N ?° 


s CHANGE DRIVE PARAMETERS ? 
;BR IF NO 
sPRINT "MIN CYL (D) 0 ?° 


sPRINT ‘MAX CYL (D) 


630 ?° 


PRINT "MIN TRK (0D) Q ?° 


a 


SEQ 0120 


No 
oo 


oo OOCOOoOOoCoCoOO oCOCOoOoO ~z 
NM RoPoPoPoPoTononey ss fororenery somo 


oo oooo°ooo 
RM ROPOPOPOPPrPT fr 
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N 
006115 .WOKD MESG13 
$e ts a 
000037 "WORD TSHILIM 
10005$: 
SPRINT "MAX TRK (D) 31 2° 
106443 TRAP — C$GMAN 
000406 BR 10006$ 
002212 .WORD MAXTRK 
000052 “WORD  TSCODE 
006125 “WORD MESG14 
000037 “WORD 37 
000900 "WORD . TSLOLIM 
000037 “WORD TSHILIM 
10006$: 
005737 002160 9$: TST OPTION sFORMAT OPTION ? 
001006 BNE 10$ ‘BR IF NO 
SPRINT “INHIBIT WRITE CHECK ?° 
104443 TRAP — C$GMAN 
000404 BR 10007$ 
002164 “WORD NOWRCK 
000130 "WORD TSCODE 
006310 “WORD MESGI7 
000001 WORD 
10007$: 
023727 002160 000002 10%: CMP OPTION, #2 ;SCAN OPTION ? 
001006 BNE 11$ [BR IF NO 
‘PRINT "DO YOU WANT TO RE-WRITE TD(S) WITH 
; NEW DEFECTS ?° 
104443 TRAP — C$GMAN 
000404 BR 10010$ 
002172 .WORD ENWTTD 
000130 "WORD TSCODE 
006403 "WORD MESG19 
000001 WORD 
10010$: 
023727 002160 000003 11%: CMP OPTION, #3 sLIST OPTION ? 
001006 BNE 12$ :BR IF NO 
SPRINT "LIST HEADERS OF DEFECT SECTOR(S)?° 
104443 TRAP  CSGMAN 
000404 BR 10011$ 
002202 .WORD LISHDR 
000130 WORD  TSCODE 
006462 WORD  MESG23 
000001 eared "WORD 1 
012737 177777 002404 12$: MOV #-1, UNIT sINITIALIZE FOR UNIT 0 ON START 
005237 002404 13$: INC UNIT [INCREMENT TO NEXT UNIT 
004737 014152 JSR PC, TABELD [LOAD THE HARDWARE P-TABLES 
023737 002404 002012 CMP UNIT,LSUNIT SOUT OF UNITS TO TEST ? 
002403 BLT 14$ ‘BR IF NO 
104444 TRAP  C$DCLN 
104432 TRAP —- CSEXIT 
000276 .WORD 110011-. 
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INITIALIZE SECTION 
98 026036 16$: :SET PRIORITY 10 7 
99 O3603¢ 012700 000340 MOV #PRI07,R0 
199 conse 10464 TRAP = C$SPRI 
10¢ RESET SOME COMMON TABLES AND PARAMETERS 
103 026044 005037 002242 15$: CLR SUPRSS ZALLOW ERROR MESSAGE TO BE OUTPUT 
104 026050 003037 bo5i05 CLR FORMT sDISABLE FORMAT OPTION 
105 026054 005037 002166 CLR VRIFY [DISABLE VERIFY OPTION 
106 026060 903037 002170 CLR SCANR [DISABLE SCAN OPTION 
107 026064 005037 002174 CLR MODTD [DISABLE MODIFY OPTION 
108 926070 903037 902200 CLR LIST [DISABLE LIST OPTION 
109 026074 005937 002154 CLR WRIFE2 ‘DISABLE WRITE FE-2 OPTION 
110 026100 010146 MOV R1,=(SP) +;PUSH R1 ON STACK 
111 026102 012701 002234 MOV #CEMODE ,R1 :LOAD THE TOP OF THE CONTROL FILE 
1@ 026106 105021 16$: CLRB (R1)¢ SAND RESET IT 
113 026110 020127 002237 CMP R1,#INTLEV FINISHED? 
114 026114 101774 BLOS 16$ [IF NOT >, NO 
11§ 026116 012701 002244 MOV #DESTRK,R1 [GET THE TOP OF THE STATUS FILE 
116 026122 005021 17$: CLR (R1)+ :AND RESET IT 
117 026124 020127 002304 (MP R1,#DESCYL FINISHED? 
118 026130 101774 BLOS 17 [IF NOT >, NO! 
119 026132 012701 002564 MOV #CMDQUE ,R1 [SET R1 = THE TOP OF THE COMMAND QUEUE 
4 ZFIND WHAT OPTION WAS SPECIFIED 
123 026136 005737 002160 TST OPTION sFORMAT OPTION ? 
124 026142 001003 BNE 18$ [BR IF NO 
125 026144 005237 002162 INC FORMT [SET FORMAT OPTION 
126 026150 000437 BR 23$ 
127 026152 023727 002160 000001 18$: CMP OPTION, #1 ZVERIFY OPTION ? 
128 026160 001003 BNE 19$ [BR | 
129 026162 005237 002166 INC VRIFY [SET VERIFY OPTION 
130 026166 000433 BR 24% 
131 026170 023727 002160 000002 19%: CMP OPTION, #2 :SCAN OPTION ? 
132 026176 001003 BNE 208 : F NO 
133 026200 005237 002170 INC SCANR [SET SCAN OPTION 
134 026204 000442 BR 28$ 
135 026206 023727 002160 000603 20%: CMP OPTION, #3 ZLIST OPTION ? 
136 026214 001003 BNE 21$ ‘BR IF N 
137 026216 005237 002200 INC LIST [SET LIST OPTION 
138 026222 000431 BR 27$ 
139 026224 023727 002160 000004 21$: CMP OPTION, #4 :MODIFY OPTION ? 
140 026232 001003 BNE 22 BR | 
141 026234 005237 002174 INC MODTD [SET MODIFY OPTION 
142 026240 000413 BR 25$ 
143 026242 005237 002154 228: INC WRIFE2 :SET WRITE FE-2 OPTION 
166 026246 000403 BR 24$ 
146 SENTER HERE TO FORMAT HEADERS & DATA 
148 026250 012721 000075 i> 238: MOV #RDTD,(R1)¢ ZLOAD THE READ TD OPERATION 
169 026254 000411 BR 26$ 
131 SENTER HERE TO VERIFY TD(S) & HEADER(S) 
133 026256 012721 000075 248: MOV #RDTD,(R1)¢ SLOAD THE READ 1D OPERATION 
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INITIALIZE SECTION . ” . 

154 026262 12721 000073 MOV #RDHD, (R1)+ sLOAD THE READ HEADER AND DATA FUNCTION 

: 5 383 00411 BR 28% 

13% sENTER HERE TO MODIFY TD(S) 

159 026270 005037 002402 258: CLR MORE TD :DEFAULT TO NO MORE TD°S TO MODIFY 

160 THE READ TD pte IS IMBEDDED IN THE 

161 :*INPUTD® SUBROUTIN 

196 026274 012721 000065 MOV MWRTITD,(R1)¢ ‘LOAD THE WRITE TD OPERATION 

163 026300 012721 000063 268: MOV #FMTRK,(R1)¢ ‘LOAD THE FORMAT TRACK OPERATION 

1s 026304 000402 3R 288 

166 sENTER HERE TO LIST TDO(S) WITH DEFECTS 

138 026306 012721 000075 27%: MOV #ROTD, (R1)¢ sLOAD THE READ TD OPERATION 

iy sENTER HERE TO SCAN FOR NEW DEFECTS 

172 026352 022701 902576 28: CMP #CMDQUE+10.,R1 ;QUEUE FULL? 

173 026516 103402 BLO 29% ; TAKE BRANCH IF SO 

174 026320 005021 CLR (R1)¢ :ZERO THE BALANCE OF THE QUEUE 

175 026322 000773 BR 28% zAND DO UNTIL QUEUE IS DONE 

176 026324 29%: 

TF 026324 012601 MOV (SP)+,R1 :;POP STACK INTO R1 

201 

202 026326 104432 TRAP CSEXIT 

203 026330 000002 ~ WORD L10011-, 

215 EVEN 

216 

217 026352 110011: 

026332 104411 TRAP CSINIT 
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AUTODROP SECTION 


-SBTTL AUTODROP SECTION 
_* 

“e ; ODE IS EXECUTED IMMEDIATELY say THE INITIALIZE CODE IF 
5 2 THe SORE FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
ee ; SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

‘ : _DROPPED FROM TESTING, 

“4 
19 026334 LSAUTO:: 
18 026334 110012: 


026334 104461 TRAP C$AUTO 


SEQ 0124 
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CLEANUP CODING SECTION 
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ra) peeees 
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000340 


000040 
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154062 
154054 


-SBSTTL CLEANUP CODING SECTION 


3¢? 
: THE CLEANUP CODING S$ 
; AFTER THE HARDWARE T 


LSCLEAN:: 


ECTION 
ESTS 


set hie RO 


#CLR,aRPCS2 
DRVNO, @RPCS2 


#CRLF (SP) 
#1,-(SP) 


oO 
$ 


DEF1,-(SP) 
R1,=(SP) 
#FRMT12,-(SP) 
#3,-(SP) 

SP,R 

CSPNTF 


DeFe, ro) 


DEFS,=(SP) 
@WARN,=<SP) 


SEQ 0125 


CONTAINS THE CODING THAT IS PERFORMED 
HAVE BEEN PERFORMED. 


3SET PRIORITY TO 7 


sMASSBUS re TO CLEAR IMPENDING INTERRUPTS 
or UMBER 


DID PROGRAM ENTER TEST 1 ? 
BR IF YES 


1 
‘PRINT "TRACKS WITH 1 DEFECTS= ° 


sR1 = 2 
sPRINT “TRACKS WITH 2 DEFECTS= ° 


3 
‘PRINT "TRACKS WITH 3 DEFECTS= ° 


A+ at THERE ANY TRACKS WITH & DEFECTS ? 


F NO 
[PRINT ‘e* WARNING *® oo WERE X. TRACK(S) 
: WITH 4 DEFECTS 


J 10 
CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 62-1 SEQ 0126 
CLEANUP CODING SECTION 
026542 0127466 00515 MOV #FRMT62,<(SP) 
0 £208 012746 tetas MOV #3,-(SP) 
026552 01 99 MOV SPR 
026554 10441 TRAP CSPNTE 
026556 062706 000010 ADD #10,SP 
33 02656 23: PRINT "TOTAL DEFECTS FOUND= x.° 
34 02696 013746 902246 MOV DEF CNT. =(SP) 
026566 012746 003564 MOV #FRMT13,<(SP) 
pseese 012746 000002 MOV #2,-(SP) 
026576 01060 MOV SP, RO 
026600 10441 TRAP =—s- CSPNTF 
35 ee, Sarre, Sewer _ ae PRINT "DONE, RETRIES MADE ERRORS DETECTED 
: 3 . = Mee = x° 
36 026606 Hf ioe 002260 MOV ERTTL,=(SP) 
026612 013746 002262 MOV ERRTTL (SP) 
026616 012746 003425 MOV #FRMT11,<(SP) 
026622 012746 000003 MOV #3,-(SP) 
026626 010600 MOV P’R 
026630 104417 TRAP = CSPNTF 
026632 062706 000010 ADD #10,SP 
46 
47 026636 106432 TRAP —s- CSEXIT 
026640 000002 -WORD 110013-. 
69 -EVEN 
62 026642 110013: 


026642 104412 TRAP CSCLEAN 


Kk 10 
CZRJKAO RPO7 oe MACRO V04.00 1-JAN-83 12:22:44 PAGE 63 SEG 0127 
DROP UNIT SECTION 
-SB8TTL DROP UNIT SECTION 
-+¢ 
& > THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
2 ; TO NO LONGER BE TESTED. 
7 ca 
. 026644 L$Du:: 
18 
19 026644 000167 ~WORD JSJMP 
20 026646 000000 «WORD L10014-2-. 
7 -EVEN 
34 026650 L10014: 
026650 104453 TRAP C$du 


CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 64 


ADD UNIT SECTION 


026652 


ViFW—= OCOWOOOOMNOUSWwR— 


WUAWNN NA 


026656 
026656 


000167 
000900 


104452 


L 10 


-SBTTL ADD UNIT SECTION 


see 
3; THE ADD-U 


NIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 

; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
; TO THE TEST CYCLE. 
LSAU:: 

-WORD J$JMP 

eWORD 110015-2-. 

EVEN 
L10015: 


TRAP C$Au 


SEQ 0128 


“1 
CZRJKAO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 65 ’ SEQ 0129 
HARDWARE TESTS 


§ -SBTTL HARDWARE TESTS 

18 -SBTTL TEST 1: MAIN PROGRAM 

51 3o¢ 

2 : TEST #1 MAIN FORMAT, VERIFY AND LIST OPERATIONS START HERE 
54 

61 

67 

68 026660 Tis: 

69 026660 005037 002264 CLR ERRMSK sRESET NO ERROR STATUS AND 

70 026664 803037 002266 CLR RTYCNT sRESET RETRY COUNT T 

71 026670 012737 000005 002222 MOV #5 ,ERRMAX sLOAD THE ERROR LIMIT 

72 026676 ete 013460 JSR PC,DRVINI s INITIALIZE THE DEVICE 

73 026702 013737 002204 002304 MOV MINCYL,DESCYL ;LOAD THE MINIMUM DESIRED CYLINDER 
74 026710 013737 002210 002244 MOV MINTRK,DESTRK ;LOAD THE MINIMUM DESIRED TRACK 

75 026716 000337 002244 SWAB DESTR TRACK ADDRESS IS THE HIGH BYTE 

76 026722 005737 002256 TST SOF Sw sDID DRIVE INITIALIZE OK? 

77 026726 001402 BEQ 1$ :BR IF YES 

78 026730 104432 TRAP CSEXIT 

79 026732 000760 -WORD 110016-. 

80 026734 005737 002154 1$: TST WRIFE2 7 ARE We WRITTING 2ND FE CYLINDER ? 
81 026740 001404 BEQ 2$ 

82 026742 004737 020120 JSR PC, FETWO 60 foanat FE CYLINDER 2 

83 026746 104432 TRAP CSEXIT 

Be 026750 000742 ~ WORD L10016-. 

85 026752 004737 017164 2$: JSR PC,ROBSF READ BAD SECTOR FILE (DEC 144 FILE) 
86 026756 005737 002170 TST SCANR ZARE WE DOING DISK SCAN 

4 026762 001075 BNE 12% 3;BR IF YES 

89 FORMAT, VERIFY & MODIFY OPTIONS START HERE 

91 026764 3$: y>>>>>>>>>>BREAK BACK TO MONI TOR<<<<<<<<<< 
92 026764 104422 TRAP CSBRK 

$3 026766 012705 002564 MOV #CMDQUE ,R5 3GET He LIST OF COMMANDS - 

026772 022715 000075 CMP #RDTD, (RS) [1S THE COMMAND A READ TD ? 

95 026776 001004 BNE 4$ BR IF NO 

96 027000 004737 020466 JSR PC ,READTD CALL THE READ TD SUBROUTINE 

97 027004 000450 BR 10$ SRETURN HERE IF EXCEEDED | we tae LIMIT 
oS 027006 000407 BR 5$ TELSE RETURN HERE, NO ERR 
100 027010 021527 000065 4$: CMP (R5) ,#WRTTD :1S THE COMMAND A WRITE TD ? 
101 027014 001005 BNE 6$ BR IF NO 
102 027016 104450 TRAP CSMANI 
103 027020 103003 BCC 6 
1. 0270c2 004737 011370 JSR PC, INPUTD CALL THE INPUT TD SUBROUTINE 
106 027026 005725 5$: TST (R5)+ POINT TO NEXT COMMAND IN Queue 
107 027030 005715 6$: TST (R5) ZANY MORE COMMANDS IN QUEUE ? 
108 027032 001417 BEQ 8S R IF NO 
109 027034 012537 002370 MOV (R5)+,FUNCTN THIS 1S A FORMAT OR wVERIFY COMMAND 
110 027040 004737 013302 7$: JSR PC ,MAKTRK *NOk EXECUTE THE COMM 
111 027044 000430 BR 10$ [RETURN HERE IF EXCEEDED RETRY LIMIT 
112 ELSE RETURN HERE, NO ERROR 
113 027046 022737 000073 002370 CMP #RDHD,FUNCTN :1S THIS A VERIFY COMMAND ? 
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017064 
012752 


002200 
020742 
017750 
002174 


002402 


002206 


8$: 


9%: 


10$: 


11$: 


12$: 
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FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 65-1 
ROGRAM 


8$ 
PC, VERIFY 
PC ERRORS 
10§ 


. 
PC,LISTDS 
PC ,CNTDEF 
MODTD 


10$ 
MORE TD 
11$ 


PC, SPIRAL 
alam 


3BR IF NO 
ANY MIS=COMPARES DURING HEADER VERIFY ? 
‘REPORT THE ERROR 


OPTION ENABLED ? 

BROUTINE TO LIST THE TD(S) WITH DEFECTS 
THIS DATA_IN THE DEFECT COUNT 

N MODIFY TD MODE ? 


¥ ANYMORE TD°S TO MODIFY ? 


c2- 
o 


GET THE NEXT SEQUENTIAL DISK ADDRESS 
epee Ff Swe 


‘SORT THE BAD SECTOR 


FILE 
sWRITE BAD SECTOR FILE (DEC 144 FILE) 


SEQ 0130 


B11 


2k 7.1 1 Lt MACRO V04.00 1-JAN-83 12:22:44 PAGE 66 SEQ 0131 
1 yo+ 
§ 3; TEST #1 MAIN SCAN OPERATION STARTS HERE 
é ° 
5 027156 105037 002236 SCAN CLRB SCANIT sRESET SCAN ITERATION COUNT 
6 027162 012702 $943.28 MOV #USRBUF +8. ,R2 3GE> POINTER TO BEGINNING OF USER BUFFER 
7 7T0 GET OVER 2 S/N WRDS AND 2 ALL O'S WRDS. 
8 027198 0(5712 1$: TST (R2) 31S THERE ANY ROOM IN THE USR BSF ? 
9 027170 100421 BMI 2$ sBR IF YES 
10 027172 beesss CMP (Ro) +, (R2)4 sNEXT POINTER ENTRY, PLEASE 
11 027174 020227 032246 CMP Ree #ENDUSR sEND OF USR BUFFER YET ? 
\¢ 027200 101772 BLOS 1$ 3BR IF NO 
1 :PRINT ‘#* WARNING ** USR BAD SECTOR FILE 
14 : BUFFER IS FULL NOW’ 
15 027202 012746 006016 MOV #WARN,=(SP) 
027206 012746 005237 MOV #FRMT63,-(SP) 
027212 012746 000002 MOV #2,-(SP) 
027216 010600 MOV SP,RO 
027220 104417 TRAP CSPNTF 
027222 062706 000006 ADD #6,SP 
6 027226 112737 177777 002241 MOVB #-1,NOROOM :MARK THE BAD SECTOR FILE AS FULL 
18 027234 012737 177777 002242 2$: MOV pF givens + SUPRESS a ERROR fe OUTPUT 
19 927242 105037 002235 CLRB FIRPAS ;SET FIRST PASS OF SCA 
20 027246 012737 032250 002232 MOV #DEFBUF ,LASLOC i SAVE LOCATION OF LAST NDEFECT IN BUFFER 
21 027254 012701 032250 MOV #0EF Bur *R1 GET POINT ER TO BEGINNING OF DEFECTE BUFFER 
22 027260 005021 3$: CLR (R1) S INITIALIZE wally AND DATA BUFFERS 
235 027262 20127 117656 CMP Ri #ENDBUF DON —E BUFFERS YET ? 
24 027266 *'01774 BLOS :BR IF NO 
$2 027270 12701 032250 MOV #DEFBUF ,R1 GET POINTER TO BEGINNING OF DEFECT BUFFER 
27 027274 4$: 3>>>>>>>>>>BREAK BACK TO MONI TOR<<<<<<ccc< 
28 027274 104422 TRAP C$BRK 
29 027276 004737 021572 JSR PC, TDSCAN ;LOOK FOR A COPRUPTED TD 
30 027302 000407 BR 5$ + RETURN HERE IF cRROR 
3) TELSE RETURN HERE, NO ERROR 
33 027304 004727 021726 JSR PC,HDSCAN sLOOK FOR A CORRUPTED HEADER 
34 027310 000404 BR 5$ ‘RETURN HERE IF ERROR 
H TELSE RETURN HERE, NO ERROR 
#8 027312 004737 022220 JSR PC,DASCAN ;LOOK FOR DATA DEFECTS 
38 027316 000401 BR 5$ ‘RETURN HERE IF ERROR 
iz 927320 000405 BR 6$ TELSE RETURN HERE, NO ERROR 
41 027322 004737 01275 5$: JSR PC,ERRORS sREPORT ERROR, IF SUPRSS=0 
$$ 027326 012737 177777 002242 MOV ae »SUPRSS + SUPRESS THE ERROR MESSAGE OUTPUT 
44 027334 105737 002235 6$: TSTB FIRPAS s ARE a IN FIRST PASS OF SCAN ? 
45 027340 001403 BEQ 7 :BR 
46 027342 004737 014316 JSR PC ,GETNEX GET THE NEXT DISK ADDRESS IN DEFECT BUFFER 
47 oer 368 820808 BR N 
4 027350 004737 017720 7$: JSR PC, SPIRAL Ort THE NEXT SEQUENTIAL DISK ADDRESS 
50 027354 023727 002250 000200 8$: CMP NEWCNT, #128. 71S DEFECT BUFFER FULL ? 
51 027362 101017 BH] 10$ 3BR 1 
52 027364 105737 002235 TSTB FIRPAS sARE WE IN FIRST PASS OF SCAN ? 
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x Tn) 


0127 
0047 


Ww oOo 
“NO 


005737 


004737 
004737 
? 


002304 002206 


002252 002232 9$: 


002232 


017750 


117656 


108: 


148: 


12$: 


138: 


14$: 


15$: 


16$: 


17$: 


18$: 


9$ 
| hati 
4 


10% 


TBLPTR,LASLOC 


4 
ata 
0$ 

PC ,NEWDAT 

DES 


#OBUFF ,R1 


(R1)¢+ 
* #ENDBUF 


PC,FINSCR 


BUFF 
2 
1 
D 


PC ,NEWLST 


BUFF ,BADDR 


;BR IF NO 

[DONE ALL CYLINDERS YET ? 

BR IF NO 

;DONE CHECKING THE CORRECTED DEFECTS ? 
[DID WE FIND ANY NEW DEFECTS ? 

BR IF NO 


360 OPTI 
3;PUSH D 


: N 
LOOK FOR SCRATCHES 
sPUT THE CONTENTS OF 


GET POINTER TO BEGINNING OF DATA BUFFER 
PRINT NEW DEFECTS, IF ANY 


USER WANTS TO RE-WRITE TD(S) OF NEW DEFECTS 


NEWCNT 
ENWTTD 
21$ 
ERRMAX ,RO 
BADDR,R1 
PC,LOADTD 
PC,SAVETD 
PC,RESTID 
PC ,WRITTD 


READTD 


:ANY NEW DEFECTS FOUND ? 
[1S WRITE TD(S) ENABLED ? 
“BR IF NO 


sSETUP RETRY COUNT 

:GET ADDRESS OF BUFFER 

;LOAD THE TD FOR THE CORRECT TRACK 

SAVE TD WRITE BUFFER JUST IN CASE THERE 
31S RETRY ATTEMPT 
BUF F 

SUBROUTINE 

CEEDED RETRY LIMIT 
NO ERROR 


ROUT INE 
DED RETRY LIMIT 
SEL N R 
‘DID WE EXCEED RETRY ? 


BR IF Y 
TRY WRITTING TD AGAIN 


;LOAD THE FORMAT COMMAND FOR THE DRIVER 
NOW EXECUTE THE COMMAND 
RETURN HERE IF EDED RETRY LIMIT 


CTS IN THE OVERALL COUNTER 
NTRY? 


[IF ZERO, WE'RE D 


TAT END OF THE SCRATCH BUFFER? 


SEQ 0132 
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AO RPO7 FMTR/SCANNER MACRO V04.00 1-JAN-83 12:22:44 PAGE 66-2 SEQ 0133 
1: MAIN PROGRAM : 
113 027614 1017463 — BLOS 14% 3;BR IF NO 
114 ps 7016 19$: 

027616 012637 ope se MOV (SP)+,DESTRK 33;POP STACK INTO DESTRK 
115 027622 012637 002304 MOV (SP)+,DESCYL zzPOP STACK INTO DESCYL 
116 perees 005037 002250 CLR NEWCNT sRESET THE LOCAL DEFECT COUNTER 
117 027632 004737 025234 JSR PC,RESTOR ‘NOW RESTORE THE ORIGINAL DEFECT BUFFER; 
118 :PuT THE CONTENTS OF ‘DBUFF' (EXCLUDING THE 
119 s unreseyt ATED SCRATCHES) INTO ‘DEFBUF’. 
120 027636 012737 032250 002252 MOV oe cred TBLPTR :GET POINTER TO Be seneine OF DEFECT BUFFER 
121 027664 004737 pi3318 JSR PC,GET NEX zAND GET FIRST DATA-SET 
1s¢ 027620 013701 00663 ; MOV LASLOC, a RESTORE POINTER THE INPUT BUFFER 
125 027654 112757 17 , 002235 MOVB es oF IRPAS DICATE 2ND PASS OF SCANNER 
ise 027662 000137 02727 JMP 4% 0 SOME MORE SCANNING 
126 027666 023737 002304 002206 20%: CMP DESCYL ,MAXCYL ;DID WE DO ALL ar rheenet 
127 027674 101002 BHI 21% TIF HIGHER, WE'RE DONE 
i$8 027676 000137 027234 JMP 2s 300 SOME MORE CYLINDERS 
130 027702 004737 015316 218: JSR PC,SESORT ;SORT THE BAD SECTOR FILE 
13 027706 004737 017436 JSR PC ,WRIBSF SWRITE BAD SECTOR FILE (DEC 144 FILE) 
138 
150 EVEN 
151 
152 027712 110016: 

027712 104401 TRAP CSETST 
153 

oo i . e ‘ “ ; 
P< s ie 


; po TER CODING MACRO v4.00 1=JAN-B3 12:22:46 PAGE 68 
TEST 1: MAIN PROGRA 
{ 


18 Se, . 


45- , - > THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
46 os 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
syf- 3; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BuT sane 
7, 48 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES 
49 3; MACROS ALLOW THE SUPERVISOR TO ESTABLISH UGmMUnT CATIONS 
5G : _WITH THE OPERATOR. 
3 i 
3 
« 54027716 000022 WORD L1QOT7=L SHARD /2 - bts 2 
027716 LSHARD:: Dre sgphboigg at ; 
—«§4 wie zh * PRINT "RPCS1 ADRS?" 
55 027716 000031 “WORD TSCODE 
027720 027762 -WORD MESG1 
027722 160000 -WORD TS$LOLIM 
027724 177777 .WORD TSHILIM 
56 PRINT ‘VECTOR ADRS?° 
57 027726 001031 «WORD TScoDe 
027730 027775 . WORD ESG4 
027732 000000 «WORD TSCOLIM 
027734 000377 -WORD TSHILIM 
58 PRINT "BR LEVEL?" 
59 027736 002032 «WORD TSCODE 
027740 030011 «WORD MESGS 
027742 000340 . WORD 4 
027744 000000 «WORD TSLOLIM 
027746 000007 «WORD TSHILIM 
60 PRINT "DRIVE #?° 
61 0277 003032 -WORD TSCODE 
027752 030022 «WORD cSG6 
027754 000007 «WORD 7? 
027756 000000 «WORD ‘TSLOLIM 
027760 000007 «WORD TIHILIM 
62 -EVEN 
- 027762 L10017: 
67 027752 122 120 103 MESG1: .ASCIZ /RVCS1 ADRS/ 
68 027775 126 105 103 MESG4: .ASCIZ /VECTOR ADRS/ 
69 030011 102 122 040 MESGS: .ASCIZ /BR LEVEL/ 
70 930022 104 122 111 MESG6: .ASCIZ /DRIVE #/ 
72 ~EVEN 
76 
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TITLE PARAMETER CODING- ; 
|SBTTL HARDWARE PARAMETER CODING SECTION 


SEQ 0134 


PARAMETER CODING MACRO V04.00 1-JAN=83 12:22:44 PAGE 69 
SOFTWARE PARAMETER CODING SECTION 
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.SBTTL SOFTWARE PARAMETER CODING SECTION 


0 
; WITH THE OPERATOR. 


LSSOFT:: 

EVEN 
110020: 
SPATCH:: .BLKW 50. ;PROGRAM PATCH AREA (50. WORDS) 
TDWRD1::.WORD 0 3TD WORD #1 
TDWRD2::.WORD 0 3TD WORD #2 
TDWRD ~ WORD 0 :TD WORD #3 
TDWRD4::. WORD 0 21D WORD #4 
TDWRDS::. WORD 0 :TD WORD #5 
TDWRD6:: .WORD 0 *TD WORD #6 
TDCPY1::.WORD 0 :COPY OF TD WORD #1 
TDOCPY2::. WORD 0 * COPY OF TD WORD #2 
TDOCPY ~WOR 0 :COPY OF TD WORD #3 
TDOCPY4::. WORD 0 sCOPY OF TD WORD #4 
TOCPY5::. WORD 0 sCOPY OF TD WORD #5 
TDOCPY6::. WORD 0 COPY OF TD WORD #6 
TDTMP1::.WORD 0 ; TEMPORARY STORAGE FOR TD WORD #1 
TDTMP2::.WORD 0 : TEMPORARY STORAGE FOR TD WORD #2 
TDIMP3::.WORD 0 : TEMPORARY STORAGE FOR TD WORD #5 
TDTMP4::. WORD 0 * TEMPORARY STORAGE FOR TD WORD #4 
TDTMP5::.WORD 0 * TEMPORARY STORAGE FOR TD WORD #5 
TDTMP6::. WORD 0 s TEMPORARY STORAGE FOR TD WORD #6 
BEGBUF =. BEGINNING OF BUFFER SECTION 
TMPBSF :: .BLKW 2 GENERAL L BSF USE 
MF GBUF :: .BLKW 256. MFG BUFFER FOR DEC 144 FILE 
USRBUF :: .BLKW 256. ‘USR BUFFER FOR DEC 144 FILE 
ENDUSR = .- SEND OF USR BUFFER 
DEFBUF =. : BEGINNING OF DEFECT BUFFER (SCAN noes 
HDRBLK:: .BLKW 6*50. SHEADER BLOCK te WRDS x 50. SECTORS) 
TDSBLK::.BLKW 6°50. STRACK DESCRIPTOR BLOCK » 
LINBUF BLKW 6*50. sBEGINNING OF LINEAR BUFFER 
ENDLIN = .= sEND OF LINEAR BUFFER 
ENDDEF = ENDLIN sEND OF DEFECT BUFFER 
DBUFF:: .BLKW 256.50. DATA BUFFER (256. WRDS X 50. SECTORS) 
ENDBUF = .-2 EN ND OF BUFFER SECTION 


. WORD L10020-L$S0F 1/2 \ 


1 N CONTAINS MACROS 
: D BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT E 


SEQ 0155 


PARAMETE CODING MACRO V04.00 1-JAN-83 12:22:44 PAGE 69-1 


SOFTUARE PARAMETER CODING SECTION 


7 117660 117700 
117662 000006 
117664 


LSLAST::— 


SEQ 0136 
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PARAMETER CODING MACRO V04.00 1-JAN-83 12:22:44 PAGE 70 SEQ 0137 
SOFTWARE PARAMETER CODING SECTION 
1 
14 
16 117664 000000 -WORD 0 
117666 000004 “WORD L10023-./2=1 
117670 110021: 
17 117670 176700 .WORD 17670C 
18 117672 000254 ol 254 
19 117674 000240 WORD 240 
20 117676 000000 WORD 0 
21 117700 110023 
23 000001 -END 


SEQ 0138 
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SYMBOL TABLE 
RHDATA 005523 G SCANR 002170 G TOCPYS 0224 G TSHILI= 000007 1 6669 G 
RHE KT a03444 G SCF = 099007 G TOCPY6 30996 G T$LAST= 000001 UAM = $560 G 
RHTYPE 002416 G sci = Bo508 G TDDEF 928 6G T$LOLI= 14 UNIT 02404 G 
RMR == 000004 G $C16 = Bp 000 G TODUMP 91 th TSLSYM= 01000 UNS 4 990 G 
RPADR 00 re G st¢ = be 500 G TOLMTS 9 36 G T$LTNO= O00! UPDSCR 023220 
RPAS 002442 G $32 = 004000 G TDSBLK 400 G TSNEST= 1 7? UPE 80008 G 
RPBA 002430 G $C4 = = 000400 G TDSCAN 1572 TSNSO = 000000 USRBUF 031250 G 
RPBAE 002474 G $€64 = 010000 G TDTMP1 0230 G TSNS1_= 000005 US1 = 000001 G 
RPCC 002462 G $¢8 = 001000 G TOTMP2 030232 G T$PCNT= 000000 US2 = 000002 G 
RPCS1 geese G SOF = 4 G TDTMPS 030234 G TSPTAB= 010022 USe = 000004 G 
RPCS 002454 G SEARCH= 0000351 G TOTMP4 030236 G TSPTHV= 000001 VERIFY 017064 
RPCS 002476 G SECADD ORS 66 G TDTMP5 838 40 G TSPTNU= 900001 VRIFY 002166 G 
RPDA 002432 G SECSO 002306 G TDTMP6 0242 G TSSAVL= 177777 VV = 000100 G 
RPDB 002446 G SEEK = 000005 G TOVALU 002316 G TSSEGL= 177777 WAIT 012720 
RPDC 002460 G SEIZE BiEsee TOWRD1 030200 G T$SIZE= 000006 WARN 006016 G 
RPDS 002436 G SESORT 015316 TDWRD B 30504 G TSSUBN= 900000 WCE = 040000 G 
RPDT 002452 G SFPTBL Boe ise G TOWRDS 030204 G TSTAGL= 177777 WCF = 000040 G 
RPEC1 002470 G SIZE70 010014 TDOWRDS 030206 G T$STAGN= 010024 WCKD = 000051 G 
RPEC2 002472 G SKI_ = 040000 G TOWRDS 030210 G TSTEMP= 000000 WCKDAT 005446 G 
RPER1 002440 G SOFSW 002256 G TOWRD6 030212 G TSTEST= 000001 WCKHD = 0000535 G 
RPER2 002464 G SPIRAL 017720 TEMPA Oosgis G TSTSTM= 177777 WCKHDR 005463 G 
RPERS 002466 G SUPRSS 002242 G TEMP? 002552 G T$STSTS= 000001 WLE = 004000 G 
002444 G SVCGBL= 000000 TEMP2 002354 G T$$AU_= 010015 WLOCK 005553 G 
RPMR1 002450 G SVCINS= 006000 TEXT 002344 G T$$AUT= 010012 WOR = 001000 G 
RPOF 002456 G SvCSUB= 000000 TKWCNT 002350 G TSSCLE= 010013 WRDAT 005435 G 
RPSN 002454 G SVCTAG= 000000 TMDLTA 016250 T$$DAT= 010023 WRITCK 011212 
RPVEC 002410 G SvCTST= 000000 TMPBSF 030244 G TS$$DU = 010014 WRITTD 020222 
PwC 002426 G S$LSYM= 010000 TOLER 022744 TSS$HAR= 010017 WRL 004000 G 
RTYCNT 002266 G TABELD 014152 G TOLRAN 023336 T$$HW = 010000 WRIBSF 017436 
RWU1 == 002000 G AP___= 040000 G E = 040000 G TS$INI= 010011 WRIDAT= 000061 G 
RWU2 = 004000 G TBLPTR 002252 G TYPLOC 010472 TSSMSG= 010006 WRIFE2 002154 G 
RWU3 = 010000 G TD = 000010 G TSARGC= 000002 T$$PC = 000001 WRTITD = 000065 G 
SAMSEC 002240 G TOBCN? 002314 G TSCODE= 003032 TS$PRO= 010010 WRU = 000400 G 
SAVETD 025016 TOCASE 016252 TSERRN= 000002 T$$PTA= 010022 X$ALWA= 000000 
SAVRPR 017012 TDOCPY1 030214 G TSEXCP= 000000 TS$$RPT= 010007 X$FALS= 000040 
SBE = 000004 G TOCPY2 030216 G T$FLAG= 000040 T$$SOF= 010020 X$OFFS= 000400 
sc = 100000 G TOCPYS 030220 G TSFREE= 117700 T$$SwW = 010001 X$TRUE= 000020 
SCAN 027156 TOCPY4 030222 G TSGMAN= 000000 TSSieS= 010016 SPATCH 030034 G 
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ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 29696 WORDS ( 116 PAGES) 
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PARAMETER CODING MACRO V04.00 1-JAN-83 12:22:44 PAGE S=6 SEQ 0146 

CROSS REFERENCE TABLE (CREF v04.00 ) 

FINDWR 49-59 50-154 

FINSCR 54-135a 96-69 

FIRPAS 1 =308 -10 66-19" 66-44 66-52 66-123¢ 

FMT16 12-1546@ 2254 

FMTRK 1 ~g208 17-82 26-24 60-1635 66-105 

FORMAT 14-958 24-26 

FORMT 13-22 60-104" 60-125* 

FRMTOO 14-418 1°-37 

FRMTO1] 14-424 18-38 

FRMTO2 14-438 18-40 

FRMTOS 14-448 18-41 

FRMTOG 14-458 18-43 

FRMTOS 14-468 18-44 

FRMT 14-478 18-49 

FRMTO7 14-484 18-59 

FRMT10 14-50" 25-12 

FPMT11 14-518 62-36. 

FRMT12 14-528 62-2) 62-26 . 62-27 

FRMT135 14-538 62-34 

FRMT1G  14-54# 30-39 65-48 66-46 

FRMT15 14-558 30-42 45-51 46-49 

FRMT16 14-564 15-30 

FRMT17 14-57# 15-31 

FRMT20 14-598 18-20 

FRMT21 14-608 

FRMT22 14-618 18-16 

FRMT23 14-62# 15-19 15-21 

FRMT2G 14-638 21-43 

FRMT3O0 14-65# 25-27 

FRMT31 14-668 25-24 

FRMT32 14-67# 46-23 

FRMT33 14-684 15-45 

FRMT35 14-694 30-22 46-26 

FRMT36 14-70# 30-33 46-42 

FRMT37 14-718 45-43 

FRMT5O 14-734 60-35 net, A 

FRMT60 14-818 29-46 rn 

FRMT61 14-82# 41-38 

FRMT62 14-838 62-32 

FRMT63 14-848 19-28 66-15 oie: él 

rant’ Necoe $68 anne 

FUNCTIN 13-118# 17-45 17-58 17282 ~ 20-19" 24-24 24-29 39-198 44-19 
44°20* 464-62 45°15 .~45-26* 65-58% 48-15" 49-208 

GSCNTO «= 7-1434 f 

GSDELM 7-143# 22-104 Z 

GSDISP 7-143@ 828. @- «! 

GSEXCP 77-1438 =~ 

GSHILI 7-1434 

++ a Ot rT YT 

GSOFFS 7-143#@ 21-15 21-17 21-19 21-45 21-49 21-53 21-57 21-64 21-66 21-74 21-109 3960-37 60-48 
60-60 60-64 60-66 60-68 60-70 60-75 60-85 60-90 68-55 68-57 68-59 68-61 

GSOFS] 721438 21-15 21-17 21-19 21-45 21249 21-53 21-57 21-64 21-66 21-74 21-109 60-37 60-48 
60-60 60-64 60-66 60-68 60-70 60-75 60-85 60-90 68-55 68-57 68-59 68-61 

GSPRMA = 77-1438 «68-55 68-57 
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CROSS REFERENCE 

GSPRMD 97-1438 
60-68 

GSPRML = 7=1438 


GSRADD 7-1438 
60-68 
GSRADL 7-1434 


60-7 
G1 12-2288 
G2 12-2508 
G3 12-2334 
G4 12-2354 
GAPVAL 54-384 
GETNEX 27-158 
GETPAT 49-16 
GO 12-504 
HCE 12-858 
HCI 12-1524 
HCRC 12-864 
HDR 12-2324 
HDRO 12-2318 
HDRBLK 20-40 
HDSCAN 48-154 
HELP 7-1268 

14-152 

62-49 


HIVALU 54-134 
HOE 11-57a@ 
77-1438 
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70-164 
58-768 
70-154 


65-684 


54-73* 


62-47 


60-97 


21-45 
60-75 


62-624 


60-202 
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21-49 
60-85 


54-103* 


70-228 


65-135 


E 12 


32-114 
69-708 
9-16 
58-48 
65-55 


54-105 


66-152 


21-57 21-64 

21-57 21-64 

21-57 21-109 
68-61 

48-44 48-49 

33-26 48-44 

37-24 53-20 

10-12 11-44 

58-49 58-63 

65-62 66-133 


54-106 54-108 


57-1 57-18 
15-36# 15-404 


66-152# 66-1528 


21-66 21-74 60-37 


21-66 21-74 60-37 


60-37 60-60 60-64 


53-25 


11-41 12-241 13-163 
59-14 60-178 60-204 
66-139 66-154 68-54 


54-137* Sé-211* 54-2148 


58-41 58-418 64-56 
15-428 15-498 


60-64 


60-64 


60-66 


14-19 
61-12 
68-77 


54-229 


64-368 


SEQ 0147 
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60-68 


54-234 


65-50 


PARAMETER CODIN 
CROSS REFERENCE 
ER 11-57" 
ILEV 1-634 
INSERT 21-7 
INTLEV 15-528 
IR 12-318 
ISR 11-57" 
i. SACP 77-1978 
LSAUTO §3=—_- 7+ 197 
L$ccP 77-1978 
LSCLEA = 7-197 
$co 77-1978 
LSDEPO 07-1974 
LSDESC 8 7+197 
LSDISP 7-197 
LSOLY 77-1978 
LSDIP 77-1978 
LSDTYP 7-197# 
LSDVTY 7-197 
SEF 7-1978 
LSEXP1 7-1978 
LSEXP4 © 7-1978 
LSEXPS 7-197 
LSHARD 7-197 
LSHIME 77-1978 
LSHPCP 7-1978 
LSHPTP 7-197@ 
LSHW 7-197 
L$ICcP 77-1978 
LSINIT 7-197 
L$LADP 7-1978 
LSLAST 7-197 
L$LOAD 7-1978 
LSLUN 7-1978 
LSMREV 7-1978@ 
LSNAME 7-197@ 
L$PRIO 7=1978 
LSPROT 7-197 
LSREPP 8 7-1978 


25-20 


65-104 
29-168 


20-15 


58-61 


14-178 


68-53 


9-10 


60-84 
69-854 


59-88 
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PARAMETER CODING MACRO V04.00 1=JAN-83 12:22:44 PAGE S-12 SEQ 0152 

CROSS REFERENCE TABLE (CREF v04.00 ) 

RPADR 13-1264 -39e 

RPAS 15-1408 -92e 

RPBA 1 ~1298 -40¢ 

RPBAE 15-1534 

RECS] S133" 17-45" 17-46 -17=53 «1762 2253" 25472" 26419-36415 

= — * <= = — ee 7] — e = 6- 

RPCS 1 1374 17-69 22-75" 22-74" 25-14 gscits 632130 

RPCS 15-1548 

RPDA 135-1364 17-398 

RPDB 135-1428 

RPDS 13-368 15238" 17-31 17-60 17-67 22-75 22-77 22-80 25-13 25-20 25-37 25-47 25-61 25-73 

- io = - - = = * -_ = = = -4 -6 = 

RPDT 15-144# 25-28 

RPEC1 135-1514 

RPEC2 13-1528 

RPER1 13-1398 

RPER2 13-1498 

RPERS 13-1508 

RPLA 135-1414 

RPMR1 15-1438 17-41* 179442 22-578 

RPOF 13-146# 20-21% 22-548 26-378 43-36% 43-51" 64-29" «48-198 

RPSN 13-1454 

RPVEC 13°127# 26-40" 26-418 

RPWC 15-1548 17-378 

RTYCNT 135-66 22-27* 22-29 22-34* 24-42 25-54 25-68 25-79 25-87 38-3) 39-29 39-41 43-42 44-37 
48-25 49-28 49-43 49-58" 65-70 

RWU1 12-1884 

RWU2 12-1894 

RwU3 12-1908 

SSLSYM =7=1438@ 9-25 10-208 15-1468 15-258 15-348 15-408 15-498 21-15 21-15 21-15 21-158 8 21-17 21-17 
21-17 21-178 821-19 21-19 21-19 21-198 = =21-45 21-45 21-45 21-458 21-49 21-49 21-49 21-498 
21-53 21-53 21-53 21-538 21-57 21-57 21-57 21-578 8 21-64 21-64 21-64 21-648 21-66 21-66 
21-66 21-668 21-74 21-74 21-74 21-748 86212109 21-109) 021-109) 21-1098 58-768 60-57 60-37 60-357 
60-378 60-48 60-48 60-48 60-484 60-60 60-60 60-60 60-604 60-64 60-64 60-64 60-644 60-66 
60-66 60-66 60-664 60-68 60-68 60-68 60-68% 60-70 60-70 60-70 60-708 60-75 60-75 60-75 
60-754 -85 -8 60-85 60-854 60-90 - 60-90 60-90 60-2174 61-18% 62-624 635-348 64-358 


SAMSEC 15-53# 32-542 32-846 32-101 32-142¢ 
SAVRPR 22-24 22-88 36-148 


SBE 12-1708 
sc 12-128 
$(1 12-1368 
$C 16 1g- 1308 
SC2 12-1374 
$( 32 12-1418 
(4 12-1384 
$(64 12-1428 
5(8 12-1394 
CAN 66°38 
SCANIT 13-518 46-18 46-20 66-5¢ 
SCANR 135-258 29-42 44-57 60-106" 60-133" 65-86 
SCF 12-1698 
SDF 12-1724 
SEARCH 12-2158 
SECS5O 3 «=-13=75@ = 20#4 5 35-50 35-55 37-22 39-44 50-47 


51-38¢ 


SEQ 0155 
50-50¢ 


50-47¢ 
49-49e 


50-45¢ 
49-32¢ 


50-440 
47-318 


49-81 
38-57* 


48-54 
38-17« 


K 12 
29-40 
22-90" 23-16 


28-51 


28-45 
22-87+ 


28-26" 


28-20¢ 


) 
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